Zusammenführen von Tabellen verschiedener Sheets

weiss jemand eine Möglichkeit, wie man per VBA innerhalb einer Arbeitsmappe die Tabelle aus verschiedenen Sheets zusammenführen kann zu einer neuen Gesamttabelle in einem separatem Sheet?

Und wie kriegt man es hin, dass dadurch keine Leerzeilen in der Gesamttabelle entstehen - die Tabellen sind nämlich unterschiedlich lang (jeweils ca. 30 - 150 Zeilen)!
Die Breit (4 Spalten) ist jedoch konstant.

Mit Dank im Voraus,
Andreas X