Mittels Makro einen Zellbereich eine Zeile nach unten verschieben

[ralf_b]

Code:

Sub kopierenEinfuegen()

Dim bereich As Range
    With ActiveSheet
       
        Set bereich = .Range(.Range("A" & ActiveCell.Row), .Range("S" & .Cells(Rows.Count, 1).End(xlUp).Row))
        bereich.Copy
        bereich.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
   
    End With
Set bereich = Nothing
End Sub

meinst du das so?   Und Shortcut definierst du im Makrodialog - Optionen