Delete entire row for specific words

@Marvin,

Thanks for the feedback...

2. Was the question if the whole cell is "Cat1" or if "Cat1" is anywhere in the string in that cell?

You are correct. I should have write this instead since the search value can be anywhere in the cell:

.AutoFilter 1, "*" &  ar(i) & "*"