… ähnlichem wie diesem code aber nur leere 5 zellen einfüge anstatt immer eine ganze zeile?
For VarZeile = CellsRows.Count, 2.EndxlUp.Row - 1 To 8 Step -1
If CellsVarZeile, 2 CellsVarZeile + 1, 2 Then RowsVarZeile + 1.Insert
Next VarZeile
danke schonmal
Grüße