Как в  Excel добавить пустые строки между имеющимися?

ПКМ - вставить  на заголовке строчки

c = 0
   For i = 1 To 10
   c = c + 1
   r = c + i
   Cells(r, 1).Select
   Selection.Insert Shift:=xlDown
   Next i

вместо 10 ставь сколько надо