If you really need VBA it is not necessary to use loops for this kind of problem.
Have a look at this autofilter technique.
To insert the code hit Alt+F11 and enter it in a module.

__________________
Using O365 v2503 - Did you know you can thank someone who helped you? Click on the tiny scale in the right upper hand corner of your helper's post