ich hätte gerne einen Button der mir bestimmte Zellen kopiert und diese dann hinter der letzten befüllten spalte einfügt.
Private Sub CommandButton1_Click()
ls = Worksheets("sheet1").Cells(2, Columns.Count).End(xlToLeft).Column
Worksheets("sheet1").Range("C2:C4").Copy _
destination:=Worksheets("sheet1").Range("" & ls & "2:" & ls & "4")
End Sub
ich weiß nicht was ich falsch gemacht habe, kenne mich selbst kaum mit Vba aus.
Vielen Dank