Nur bestimmte Zeilen aus versch. Blätter kopieren

Public Sub Übersicht()
Dim WkSh_Q    As Worksheet ' die Quell-Tabellenblätter - die Herkunftblätter
Dim WkSh_Z    As Worksheet ' das  Ziel-Tabellenblatt   - die Ausgabe
Dim lZeile_Q  As Long      ' der For/Next Schleifen-Index im Quell-Tabellenblatt
Dim lZeile_Z  As Long      ' die Ausgabezeile im Ziel-Tabellenblatt
Application.ScreenUpdating = False ' kein Bildschirm-Update - kein Flackern
Set WkSh_Z = ThisWorkbook.Worksheets("Übersicht") ' das Ausgabeblatt
For Each WkSh_Q In ThisWorkbook.Worksheets   ' über alle Blätter der Mappe laufen
If WkSh_Q.Name  "Übersicht" Then  ' das Ziel-Tabellenblatt ausnehmen
'           ab Zeile 7 bis zur letzten belegten Zelle in Spalte 1 = A
For lZeile_Q = 7 To WkSh_Q.Cells(Rows.Count, 1).End(xlUp).Row
'              ist die Zeile die kopiert werden soll NICHT leer?
If WorksheetFunction.CountA(WkSh_Q.Rows(lZeile_Q))  0 Then
'                 im Ziel-Tabellenblatt die nächste freie Zeile suchen
lZeile_Z = WkSh_Z.Cells(Rows.Count, 1).End(xlUp).Row + 1
'                 ist die erste freie Zeile im Ziel-Tabellenblatt  ZielTabellenblatt kopieren
WkSh_Q.Rows(lZeile_Q).Copy Destination:=WkSh_Z.Rows(lZeile_Z)
End If
Next lZeile_Q
End If
Next WkSh_Q
Application.ScreenUpdating = True  ' den Bildschirm-Update wieder zulassen
End Sub