Insert 7 rows between each row of data

[buteaur]

I can get Excel to insert 1 row between each row to my spreadsheet but I cannot figure out how to make it do multiple rows.

john
may
june
frank
loose
bank
crazy

I need 7 rows insterted between each row. I have over 1,000 lines.....

Thanks.

 

[My Aswer Is This]

Try this:

This assumes you always have values in column A

Sub Test()
Application.ScreenUpdating = False
Dim i As Long
Dim Lastrow As Long
Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    For i = Lastrow To 1 Step -1
        Rows(i).Resize(7).Insert
    Next
Application.ScreenUpdating = True
End Sub

 

[buteaur]

Worked perfectly. Thank you!

 

[My Aswer Is This]

Glad I was able to help you. Come back here to Mr. Excel next time you need additional assistance.

Worked perfectly. Thank you!