Hallo Julian,

dieser Cde ist immer einsetzbar auch dann, wenn Zeilen entfernt werden oder hinzukommen.

Sub Makro2()
zeilenanzahl = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To zeilenanzahl
    If IsEmpty(Cells(i, 3)) Then
       Range(i & ":" & i).Select
       Selection.EntireRow.Hidden = True
    End If
Next

Range(Cells(1, 1), Cells(zeilenanzahl, 4)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
    
Sheets("Mappe2").Activate
Range("A9").Select
ActiveSheet.Paste
End Sub

Kommt es deinem Anspruch näher?

Gruß Codo