Aus einem Thema was eigentlich schon gelöst war:
Wie lösche ich die Zeilen, die aus folgender Routine in die nächste Tabelle kopiert wurden?
Sub ZeilenÜbertragenPMA()
Dim lngZeile As Long
Dim rngBereich As Range
Application.ScreenUpdating = False
With Tabelle1
For lngZeile = 3 To .Cells(Rows.Count, 1).End(xlUp).Row
If .Cells(lngZeile, 8).Value = "Ja" And .Cells(lngZeile, 9).Value = "Nein" Then
.Rows(lngZeile).Copy Destination:=Tabelle6.Cells(Rows.Count, 1).End(xlUp).Offset(1)
End If
Next lngZeile
End With
Application.ScreenUpdating = True
End Sub