Вставка строк в таблицу

[АННА-ЕАО]

Всем здравствуйте . Подскажите плз, как в таблице вставить 5 (не факт может и 50 и 400) строк после каждой заполненной уже строки. Т.е. существует таблица (очень большая), но допустим, что она состоит из 10 строк. Мне нужно простым действием вставить после каждой строки 5 (50-400) пустых строк. Как это сделать быстро?

[Watcher_1]

Ловите!

Sub n()
  RowCount = 5 ' кол-во строк в таблице
  RouIns = 10 ' кол-во строк для вставки
  For i = 2 To RowCount
    Range("B" & i + s & ":B" & i + s + RouIns).EntireRow.Insert , CopyOrigin:=xlFormatFromLeftOrAbove
    s = s + RouIns + 1
  Next
End Sub

[АННА-ЕАО]

Спасибо БОЛЬШОЕ