Hallo,
da die ganze Spalte kopiert wird, muss der kopierte Bereich in die erste Zeile eingefügt werden.
Probiere mal den folgenden Code:
Sub spalte_kopieren()
Dim lngSpalte As Long
Dim wksZiel As Worksheet
Dim lngLetzte As Long
'Zieltabelle festlegen
Set wksZiel = ThisWorkbook.Worksheets("Tabelle2")
'im aktiven Arbeitsblatt letzte beschriebene Zeile in Spalte C ermittlen
lngLetzte = ActiveSheet.Cells(Rows.Count, 3).End(xlUp).Row
'letzte beschriebene Spalte im Arbeitsblatt Tabelle2 feststellen
With wksZiel
lngSpalte = .Cells(1, Columns.Count).End(xlToLeft).Column
'Prüfen, ob diese Spalte leer ist, ggf. Variable für Einfügespalte um 1 erhöhen
If Application.CountA(.Columns(lngSpalte)) > 0 Then lngSpalte = lngSpalte + 1
End With
'kopieren, nur Werte einfügen
ActiveSheet.Range("C1:C" & lngLetzte).Copy
wksZiel.Cells(3, lngSpalte).PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
End Sub
Gruß
M.O.