Ja, du bist der Beste!!!

Sub Makro5()
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(6, 1), Cells(zeilenanzahl, 4)).Select
Selection.SpecialCells(xlCellTypeVisible).Select
Selection.Copy
 
Range(Cells(1, 1), Cells(zeilenanzahl, 4)).Select
Selection.EntireRow.Hidden = False
      
Windows("Mappe2").Activate
Range("A9").Select
ActiveSheet.Paste
End Sub

Funktioniert einwandfrei. Danke nochmal für deine Mühen und schnelle Hilfe.

Mit besten Grüßen

Julian