Insert Rows

[LtCmdrData]

I am looking for a quick VBA solution. I have a range of numbers (not consecutive) in one column, 881 to be exact. I need to insert 146 blank rows in between each number, then move to the next number in the same column and then insert 146 more blank rows, until I reach the end. Does anyone have a simple solution so I don't have to do this manually? Thanks!

 

[Fluff]

How about

Sub LtCmdrData()
Dim i As Long
For i = Range("A" & Rows.Count).End(xlUp).Row To 2 Step -1
    Rows(i).Resize(146).Insert
Next i
End Sub

 

[LtCmdrData]

That worked great, just what I wanted it to do. That saved me a lot of work.

Could I ask 1 more question please?
I have a block of data, 147 rows by 23 columns wide, that I need to insert by each number I just separated. Could the VBA code you gave me be modified to accomplish this task? The block of data doesn't change, it just repeats. Thanks in advance.

 

[Fluff]

Do you mean that each row should be repeated 14 times?