Zeilen mit bestimmten Wort ausschneiden

Sub Holen()
Workbooks.OpenText Filename:= _
"F:\Lieferzentrum\Aek_Keyuser\FGK_Daten_holen\FGK_Daten.txt", Origin:=xlMSDOS _
, StartRow:=1, DataType:=xlFixedWidth, FieldInfo:=Array(Array(0, 1), Array( _
4, 9), Array(56, 1), Array(66, 9), Array(104, 1), Array(108, 9), Array(114, 5), Array( _
122, 9 _
), Array(134, 1), Array(138, 9), Array(186, 9)), TrailingMinusNumbers:=True
Dim rng As Range, _
i As Long, laR As Long, Anz1 As Long, Anz2 As Long
Const s1 As String = "SURG", s2 As String = "SURG"
Application.ScreenUpdating = False
On Error Resume Next
laR = Cells.Find("*", [A1], , , xlByRows, xlPrevious).Row
On Error GoTo 0
If laR > 0 Then
For i = laR To 1 Step -1
Anz1 = 0
Anz2 = 0
Set rng = ThisWorkbook.ActiveSheet.Range("A" & i & ":IV" & i)
Anz1 = Application.Evaluate("=SUM(LEN(" & rng.Address(True, True, _
xlA1, True) & ")-LEN(SUBSTITUTE(" & rng.Address(True, True, _
xlA1, True) & ",""" & s1 & ""","""")))/LEN(""" & s1 & """)")
Anz2 = Application.Evaluate("=SUM(LEN(" & rng.Address(True, True, _
xlA1, True) & ")-LEN(SUBSTITUTE(" & rng.Address(True, True, _
xlA1, True) & ",""" & s2 & ""","""")))/LEN(""" & s2 & """)")
If (Anz1 + Anz2) > 0 Then
Rows(i).Delete
End If
Next i
Set rng = Nothing
End If
Application.ScreenUpdating = True
ActiveWorkbook.SaveAs Filename:= _
"f:\Lieferzentrum\Aek_Keyuser\FGK_Daten_holen\FGK_Daten_Ergebnis.xls", FileFormat:= _
xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
, CreateBackup:=False
Windows("FGK_Daten_Ergebnis.xls").Activate
End Sub