Delete row when a cell contains specific text

[zombiemaster]

I've been scouring these boards looking at different solutions for how to delete a row when there is a particular string of text in a cell, but nothing I try seems to work. Rather than beat my head against my desk any longer, I am going to just reach out and plead for help...

I have been given a medium sized spreadsheet (it varies each day) that management wants cleaned up. Starting in row 4, I want to delete the entire row if I find a particular text string (it could be PART of the cell and might not be the entire text in the cell) in a column. Here's some examples:

Column B might include the text "PT CO" - need to delete the entire row
Column E includes "FROZEN" - delete row
Column H included "ROUTE" - same
And so on...

I'm hoping (and assuming) that once I get code that works for one of my text strings, I can modify it to work for multiple ones in sequence as needed for each column...

Thanks for any help!
~ZM~

 

[Fluff]

How about

Sub zombiemaster()
   Dim Ary As Variant
   
   Ary = Array(2, "*pt co*", 5, "Frozen", 8, "Route")
   With Sheets("[COLOR=#ff0000]Data[/COLOR]")
      For i = 0 To UBound(Ary) Step 2
         If .AutoFilterMode Then .AutoFilterMode = False
         .Range("[COLOR=#ff0000]A3:Z3[/COLOR]").AutoFilter Ary(i), Ary(i + 1)
         .AutoFilter.Range.Offset(1).EntireColumn.Delete
      Next i
      .AutoFilterMode = False
   End With
End Sub

Change sheet name and header range to suit

 

[zombiemaster]

Thank you! I changed "EntireColumn" to "EntireRow" and it works perfectly - I was able to add other parameters as well, and it worked like a charm.

You ROCK!
~ZM~

 

[Fluff]

You're welcome & thanks for the feedback.
Apologies for the typo on EntireColumn