Most Effective Multi-Column Delete Row Filter [VBA]

[DataBlake]

what would be the most effective way i could filter every column for the same criteria? so far i can think of the below sub i made, but it doesnt seem to be that efficient if multiple columns contain the criteria. If you could help me to understand another method i would greatly appreciate the help.

Sub test()
    Dim p As Long
    Dim lastCol As Long
    
    lastCol = Range("A1").SpecialCells(xlCellTypeLastCell).Column
    
    For p = 1 To lastCol
        With ActiveSheet.Range("A1")
            
            .AutoFilter Field:=p, Criteria1:="=*Trailer*", Criteria2:="=*Dually*", Operator:=xlOr
            On Error GoTo 0
            .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
            
            AutoFilterMode = False
        End With
        Next p
        
    End Sub

 

[DataBlake]

You could, but it may not be the best way. For example, if you 500 criteria it would make for a very long code.
So about how many criteria might you have?

your solution was perfect, its super fast.
I only had 5 criteria.

 

[Peter_SSs]

your solution was perfect, its super fast.
I only had 5 criteria.

Cheers. Thanks for the follow-up.

A more compact way to add your multiple conditions might be to replace the If...ElseIf....ElseIf type structure with this

For i = 1 To UBound(a)
  For j = 1 To uba2
    If Not IsError(a(i, j)) Then
      Select Case True
        Case InStr(1, a(i, j), "trailer", 1) > 0, _
              InStr(1, a(i, j), "dually", 1) > 0, _
              InStr(1, a(i, j), "abcde", 1) > 0
          b(i, 1) = 1
          k = k + 1
          Exit For
      End Select
    End If
  Next j
Next i