Office: VBA verschiedene definierte "nicht leere" Bereiche aus Datei kopieren in neue Datei

Hallo zusammen,
nachdem ich jetzt vieles hin- und her versucht habe komme ich nicht wirklich zu einem Ergebnis das ich gerne hätte.

Ich habe einen Ordner in dem mehrere Excel Dateien abgespeichert werden. Benennung der Dateien: Messdaten1.xls, Messdaten2.xls, Messdaten3.xls...

Diese Dateien enthalten je ein Arbeitsblatt (Tabelle1) mit Überschriften und Messwerten.

Ich hätte gerne aus jeder Datei den Wert aus Zelle B2 als Überschrift und dann ab dem Bereich A19:D19 die gefüllten Zeilen bis zur letzten gefüllten Zeile.
Das kann mal die Zeile 25 sein, aber auch mal Zeile 300.

Und diese dann in eine neue Datei in ein Tabellenblatt untereinander.

Probiert habe ich es auch mit einem "merge" der Dateien in eine Datei und dann über die ganzen Tabellenblätter, aber das sieht dann so aus:
Sub Kopieren()

Dim rngZelle As Range

Set Summarysheet = ThisWorkbook.Sheets("merge")

For Each ws In ThisWorkbook.Sheets
If ws.Name <> "merge" Then
Set DestCell = Summarysheet.Cells(Rows.Count, 1).End(xlUp).Offset(1)
DestCell.Offset(0, 0).Value = ws.Range("b2").Value
ws.Range("A19:d19").Copy DestCell.Offset(0, 1)
End If
Next
End Sub

und bringt natürlich nur die erste Zeile (Zeile 19) jedes Arbeitsblattes. Wie kann ich das auch über den ganzen Bereich (A19:D19) ab Zeile 19 bis unendlich laufen lassen und die gefüllten kopieren?

Bin um jede Hilfe dankbar :-)

 

Moin Felix,
Du beschreibst ein klassisches "Letzte belegte Zeile/Spalte"-Thema. Dafür gibt es in XL verschiedene Lösungen, die Du Dir hier (derzeit immer noch read only) anschauen kannst.
Grüße