VBA根据列A中的值为列B创建循环

I have a code that does what I need. The problem is I have to do the range select manually I'd like to create a conditional loop.I have a code that does what I need. The proble