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