Sub killRow1()
Application.ScreenUpdating = False
On Error Resume Next
Dim rRow()
nrows = ActiveSheet.UsedRange.Rows.Count
ReDim rRow(nrows)
Application.Calculation = xlCalculationManual
With ActiveSheet.Range("A1:A" & nrows)
    Set C = .Find(What:="8=FWD", LookIn:=xlFormulas, Lookat:=xlPart)
    If Not C Is Nothing Then
        firstAddress = C.Address
        Do
            Number = Number + 1
            rRow(Number) = C.Row
            Set C = .FindNext(C)
        Loop While Not C Is Nothing And C.Address < firstAddress
    End If
End With
For i = Number To 1 Step -1
    Range("A" & rRow(i)).EntireRow.Delete
Next i
'MsgBox "8=FWD done"
Application.Calculation = xlCalculationAutomatic
End Sub

Sub killRow2()
Application.ScreenUpdating = False
On Error Resume Next
Dim rRow()
nrows = ActiveSheet.UsedRange.Rows.Count
ReDim rRow(nrows)
Application.Calculation = xlCalculationManual
With ActiveSheet.Range("A1:A" & nrows)
    Set C = .Find(What:="PF KEY", LookIn:=xlFormulas, Lookat:=xlPart)
    If Not C Is Nothing Then
        firstAddress = C.Address
        Do
            Number = Number + 1
            rRow(Number) = C.Row
            Set C = .FindNext(C)
        Loop While Not C Is Nothing And C.Address < firstAddress
    End If
End With
For i = Number To 1 Step -1
    Range("A" & rRow(i)).EntireRow.Delete
Next i
'MsgBox "PF KEY done"
Application.Calculation = xlCalculationAutomatic
End Sub

Sub killRow3()
Application.ScreenUpdating = False
On Error Resume Next
Dim rRow()
nrows = ActiveSheet.UsedRange.Rows.Count
ReDim rRow(nrows)
Application.Calculation = xlCalculationManual
With ActiveSheet.Range("A1:A" & nrows)
    Set C = .Find(What:="END OF DATA", LookIn:=xlFormulas,
Lookat:=xlPart)
    If Not C Is Nothing Then
        firstAddress = C.Address
        Do
            Number = Number + 1
            rRow(Number) = C.Row
            Set C = .FindNext(C)
        Loop While Not C Is Nothing And C.Address < firstAddress
    End If
End With
For i = Number To 1 Step -1
    Range("A" & rRow(i)).EntireRow.Delete
Next i
'MsgBox "END OF DATA done"
Application.Calculation = xlCalculationAutomatic
End Sub