Adding rows between lots of numbers

[hotrod]

I have a column A1-A1000 of numbers.
What is the fastest and easiest way to insert 3 rows between each number.
Currently ...
1001
665
426
etc

I want ...
1001



665



426


Thanks

 

[VoG]

Try

Sub insrows()
Dim LR As Long, i As Long
Application.ScreenUpdating = False
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
    Rows(i).Resize(3).Insert
Next i
Application.ScreenUpdating = True
End Sub

 

[hotrod]

Peter

Fantastic, fast and slick.
Thank you very much, greatly appreciated.