Leere Zellen einfuegen

… ä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

Les den Code, fehlt da mehr außer den Klammern?owT