In diesem Beispiel wird eine neue Zeile vor Zeile 4 in Sheet1 eingefügt.
Worksheets("Sheet1").Rows(4).Insert
In diesem Beispiel werden neue Zellen im Bereich A1:C5 in Sheet1 eingefügt und dann nach unten verschoben.
Worksheets("Sheet1").Range("A1:C5").Insert Shift:=xlShiftDown
In diesem Beispiel wird eine neue Zelle an der aktiven Zelle eingefügt. Dieses Beispiel muss aus einem Tabellenblatt ausgeführt werden.
ActiveCell.EntireRow.Insert