habe folgendes Makro erstellt um die Zellen nach unten zu verschieben.
Sub verschieben()
Range("B:L").Select
ActiveCell.EntireRow.Insert Shift:=xlDown
End Sub
Funktioniert auch soweit ausser das er immer von der ersten Zelle an den Abschnitt nach unten verschiebt und nicht von der Aktiven Zelle aus.
Hoffe ihr könnt mir rat geben
Gruß Hans