I have a macro that deletes any row that contains a certain word or words. I am constantly adding words to be deleted based on other criteria so I have been just adding what I need into the macro. The problem I am having is that if that word is in row 1 it seems that my macro doesn't recognize it and won't delete it. If the same word is in any other row it will be deleted just not in the first row. Here is the part of the macro that I am using to find and delete the word. Any help would be greatly appreciated.

With ActiveSheet
.AutoFilterMode = False
With Range("A1", Range("A" & Rows.Count).End(xlUp))
.AutoFilter 1, "*Word to search for*"
On Error Resume Next
.Offset(1).SpecialCells(12).EntireRow.Delete
End With
.AutoFilterMode = False
End With