Spalten in anderes Tabellenblatt fortlaufend kopieren

[Wexel]

Guten Abend zusammen,

Ich habe folgendes Problem.

Ich möchte aus "Tabelle1" die Zellen C3 bis C13 in ein anderes Tabellenblatt kopieren. Nach "Tabelle2", Zellen C3 bis C13. Soweit so gut...
Sind diese Zellen aber voll, sollen meine kopierten Zellen in D3 bis D13 eingefügt werden. Sind diese voll in E3 bis E13 usw.. also in die nächst freien Zellen. Ende eigentlich offen.

Kann mir wer helfen ?? Vielen Dank vorab

[Crazy Tom]

Hallo

zu starten aus Tabelle1

Code:

Sub test()
   Dim lngZiel As Long
   With Sheets("Tabelle2")
       lngZiel = .Cells(3, .Columns.Count).End(xlToLeft).Column + 1
       If lngZiel <= 3 Then lngZiel = 3
       Range("C3:C13").Copy .Cells(3, lngZiel)
   End With
End Sub

MfG Tom

[Wexel]

Danke, das ist super.