ich habe leider nicht so die VBA-Kenntnisse.
Ich würde gerne aus Tabelle 1 die Zellen B1:B3 kopieren und in Tabelle 2 nebeneinander in den letzten 5 freien Zeilen einfügen.
Bei meinem Code kopiert er zwar die Zellen fügt diese aber nur in die 1 Zeile.
Mein Code:
Private Sub CommandButton2_Click()
Dim Test
Test = Worksheets("Testdaten").Cells(Rows.Count, 1).End(xlUp).Row + 1
Worksheets("Testseite").Range("B1:B3").Copy
Worksheets("Testdaten").Columns("B" & Test).PasteSpecial Paste:=xlAll, Transpose:=True
Application.CutCopyMode = False
End Sub