Spalte als Zeile in anderes Tabellenblatt?

Dies kleine Makro macht das, was du möchtest,
einfach nach eimem Neueintrag laufen lassen.

Makro:

Sub kopieren()
'leere Zeile in tabelle 2 suchen
Sheets("Tabelle2").Activate
For k = 2 To 500
b = Cells(k, 1)
If b = "" Then Exit For
Next k
'Zeilen 1 bis 14 der Spalte A kopieren
Sheets("Tabelle1").Activate
For i = 1 To 14
a = Cells(i, 1)
Sheets("Tabelle2").Activate
Cells(k, i) = a
Sheets("Tabelle1").Activate
Next i
End Sub

gruß
Uwe