Hallo

für genau diese Aufgabe fand ich mal ein Makro im Internet. Vielleicht kannst du es verwenden?? Den namen der Quelltabelle musst du evtl. aendern!  Siehe ** im Code!

mfg Nobody

Sub Erledigte_Aktualisieren()
Dim TB2 As Worksheet, Zelle
Set TB2 = Worksheets("Tabelle2")
    'LastZell in Tabelle2 suchen +1
    lngZeile = TB2.Cells(Rows.Count, 1).End(xlUp).Row + 1
         
     With Worksheets("Tabelle1")     '** hier den Namen der Quell Tabelle angeben!!
        Application.ScreenUpdating = False
        lngA = .Cells(Rows.Count, "E").End(xlUp).Row

        '1.Schleife um Daten in "Erledigt" zu kopieren
        For Each Zelle In .Range("E2:E" & lngA)
            If Zelle.Value = "Nein" Then
               Zelle.EntireRow.Copy Destination:=TB2.Rows(lngZeile)
               Zelle.EntireRow.ClearContents
               lngZeile = lngZeile + 1:  n = n + 1
             End If
         Next Zelle
     
        '2.Schleife um Leerzeilen Rückwaerts zu löschem
        For j = lngA To 2 Step -1
            If .Cells(j, 1).Value = Empty Then
               .Rows(j).Delete shift:=xlUp
            End If
     End With

     If n = 0 Then MsgBox "Ke?ne Daten gefunden"
     If n > 0 Then MsgBox n & " Daten kopiert"
End Sub