Zeieln übertragen mittels VBA

Sub ZeilenUebetragen_MG()
Dim i As Long, tLR As Long
Dim tarWks As Worksheet, srcWks As Worksheet
Set srcWks = Worksheets("Protokoll")
Set tarWks = Worksheets("Protokoll erledigt")
With srcWks
For i = 1 To .Cells(.Rows.Count, 7).End(xlUp).Row
If .Cells(i, 7).Value = "erledigt" Then
tLR = tarWks.Cells(Rows.Count, 7).End(xlUp).Row + 1
Debug.Print tLR
With tarWks
.Range(.Cells(tLR, 1), .Cells(tLR, 8)).Value = srcWks.Range(srcWks.Cells(i, 1),  _
_
_
srcWks.Cells(i, 7)).Value
End With
End If
Next i
End With
For zelle = 60000 To 2 Step -1
If Cells(zelle, 7).Value = "erledigt" Then
Rows(zelle).Delete
End If
Next
End Sub