Möchte über Makrobefehl alle Werte von B2 bis zum Ende der Spalte B kopieren und an einem beliebigen Platz einfügen.
Danke im Voraus.
MfG Georg
Sub kopiereSpalte()
Dim lastRow As Long
lastRow = Range("B65536").End(xlUp).Row
Range("B2:B" & lastRow).Copy Sheets("Tabelle2").Range("A1")
End Sub