Sub Delete()
Const Str As String = "AUR02G|AUDITED|ALL WINGS|GROUPS|---- GUEST NAME ----"
Dim i As Long
Application.ScreenUpdating = False
With Worksheets("Sheet1")
For i = .Cells(.Rows.Count, 1).End(xlUp).Row To 2 Step -1
If InStr(Str, .Range("A" & i)) Then .Rows(i).Delete
Next i
End With
End Sub
Sub Delete2()
Dim StrToCheck As Variant
Dim i As Long
Application.ScreenUpdating = False
Application.DisplayAlerts = False
StrToCheck = Array("AUR02G", "AUDITED", "ALL WINGS", "GROUPS", "---- GUEST NAME ----")
With Worksheets("Sheet1")
.FilterMode = False
For i = LBound(StrToCheck) To UBound(StrToCheck)
With .Range("A1:A" & .Range("A" & Rows.Count).End(xlUp).Row)
.AutoFilter 1, StrToCheck(i)
On Error Resume Next
.Range("A2:A" & .Range("A" & Rows.Count).End(xlUp).Row). _
SpecialCells(xlCellTypeVisible).Delete
On Error GoTo 0
End With
.FilterMode = False
Next i
.FilterMode = False
End With
Application.DisplayAlerts = True
End Sub
Sub Delete3()
Dim LastRow As Long
Dim LST As Variant
Application.ScreenUpdating = False
LST = Array("AUR02G", "AUDITED", "ALL WINGS", "GROUPS", "---- GUEST NAME ----")
With Worksheets("Sheet1")
.AutoFilterMode = False
LastRow = .Range("A" & Rows.Count).End(xlUp).Row
.Range("A1:A" & LastRow).AutoFilter field:=1, Criteria1:=LST, Operator:=xlFilterValues
On Error Resume Next
.Rows("2:" & LastRow).SpecialCells(xlCellTypeVisible).Delete
On Error GoTo 0
.AutoFilterMode = False
End With
End Sub