Delete certain rows

[Zack Barresse]

Hi,

Would something like this do you ..

Option Explicit
Sub forHondaTiger()
    Dim lastRow As Long, i As Long, cel As Range
    lastRow = Range("A65536").End(xlUp).Row
    For i = lastRow To 1 Step -1
    If Range("A" & i).Value = "E" Or Range("A" & i).Value = "A" Or _
        Range("A" & i).Value = "F" Or Range("A" & i).Value = "P" Then
        Range("A" & i).EntireRow.Delete
    End If
    Next i
End Sub