Spalten in eine Tabelle einfügen

Hallo,
ich möchte mit Hilfe von VBA einige schon markierte Spalten mit verschiedenen Inhaltslängen in eine z.B. die Tabelle1 einfügen und zwar alle untereinander in die Spalte A.
Kann mir jemand helfen?

Hallo zusammen,
ich hab ein kleines Problem mit meinem VBA Programm, ich sollte es schaffen
einige Zeilen von verschiedenen Spalten, die ich schon automatisch in der richtigen Länge vom Programmm markieren hab lassen. In eine seperate Tabelle z.B.Tabelle1 in die Spalte A alle untereinander einzufügen.Am besten ohne Abstand.
Also markiert habe ich folgendermaßen:

Worksheets(2).Select 'Aktivieren des Tabellenblattes 2(Auswahl)
Dim ZellenInhalt As String
ZellenInhalt = Range("A4").Value 'Aktivieren der Zelle A4
If Range("A4") = "X" Then _
GoTo sprung1 Else GoTo sprung2
sprung1:
Worksheets(3).Select 'Aktivieren des Tabellenblattes das Ausgewählt wurde
wert1 = 1 'Sperre der analogen Eingänge
For i = 1 To 2
wert = Cells(65536, i).End(xlUp).Row
If wert größer wert1 Then 'größer als muss ausgetauscht werden
wert1 = wert
End If
Next
Range(Cells(1, 1), Cells(wert1, i - 1)).Select
'Kopieren der Auswahl 1.Versuch
Dim oo As Integer
oo = ActiveSheet.Range("A1").End(xlDown).Row
Range("A1:A" & oo).Copy
Worksheets(1).Select

ActiveWorkbook.Worksheets.Add After:=Worksheets("Tabelle2")
Gruss Heike

Aber wenn die markierten Zeilen einer Spalten alle unterschiedliche Längen haben
und untereinander eingefügt werden sollen, ohne das ich die Länge angeben muss. Eigentlich soll das Makro die Länge ermitteln und die nächsten markierung direkt dahinter anfügen.?????