ich würde gerne bestimmte Zellen mit einer Schaltfläche kopieren und automatisch in der nächsten freien Zeile einfügen. Es sollen die Zellen C69 bis O84 kopiert und in der Spalte C in die nächstfreie Zeile eingefügt werden.
Sub Unit()
Dim Quelle As Range, Ziel As Range
Set Quelle = Range("C69:O84")
Set Ziel = Cells(Rows.Count, 3).End(xlUp).Offset(1, 0)
Call Quelle.Copy(Destination:=Ziel)
Set Ziel = Nothing: Set Quelle = Nothing
End Sub
Gruß Gerd