Transponieren

ich bin auf der Suche nach einem Makro, das folgendes anstellt:

Kopiere die Werte aus den Zellen A1 bis A24 aus Tabelle 1
in die Spalten A1 bis X1 in der Tabelle 2
Kopiere die Werte aus den Zellen A25 bis A48 aus Tabelle 1
in die Spalten A2 bis X2 in der Tabelle 2
Kopiere die Werte aus den Zellen A49 bis A72 aus Tabelle 1
in die Spalten A3 bis X3 in der Tabelle 2
...und so fort bis das Ende der Werte in Spalte A in Tabelle 1 erreicht ist.

Vielen Dank im voraus!