Making a more efficient If

[SandsB]

My code is below. It works but I do this loop for a couple dozen kinds of records. The loop below says delete the row if the value of a cell = AX. Then I run the same loop for AT, then for FE, then LQ, then PD, etc. etc.etc. How can I change this so the loop runs once and deletes the record if it contains either AX or AT or FE or LQ, etc.?

For i = Last To 1 Step -1
If (Cells(i, "I").Value) = "AX" Then
'Cells(i, "A").EntireRow.ClearContents
Cells(i, "A").EntireRow.Delete
End If
Next i

 

[mumps]

Try this macro. Add values to the array (in red) as needed.

Sub DeleteRows()
    Application.ScreenUpdating = False
    Dim v As Variant
    v = Array("AX", "AT", "FE", "LQ")
    With ActiveSheet
        .Range("A1").AutoFilter Field:=9, Criteria1:=v, Operator:=xlFilterValues
        .AutoFilter.Range.Offset(1).EntireRow.Delete
        .Range("A1").AutoFilter
    End With
    Application.ScreenUpdating = True
End Sub