Insert blank row after x rows

[Barbapapa]

Here is my problem:

I have a long list of data (~35000 rows) and I need to divide it to 5 row blocks. SO after every 5 rows I need to insert one empty.


1
2
3
4
5
6
7
8
9
10
11
...

to

1
2
3
4
5

6
7
8
9
10

11
...

Any easy solution available? Can't do it with VBA myself and not enough time to study this time. Need to have this done quickly.

Thanks in advance!

 

[acw]

Hi

Does your data start in row 1? If not, where does it start?


Tony

 

[acw]

Hi

Maybe....

Sub bbb()
  StartRow = InputBox("What is the data starting row?", , 1)
  i = StartRow + 5
  While Not IsEmpty(Cells(i, 1))
    Cells(i, 1).EntireRow.Insert
    i = i + 6
  Wend
End Sub

Tony

 

[Barbapapa]

Yep, that does it.

Thanks!