Spalten in eine Tabelle einfügen

    :idea: 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.????? :?: