Insert 22 blank rows after each row

[aravindhan_31]

Hi,
can you guyes please help me for the below:-
I have a values in column A like 1,2,3,4,5,6 etc..
I just want to insert 22 blank rows after each value, like after 1 insert 22 blank rows and then 2, then again insert 22 blank rows. and so on.

thanks for your help
Arvind

 

[aravindhan_31]

Re: Insert 22 blank rows after each row - Solved

Hi

thanks I got the code

Sub Insert_22_rows()
' Written by Barrie Davidson
Range("A1").Select
Do Until Selection.Value = ""
ActiveCell.Offset(1, 0).Range("a1:A22").Select
Selection.Insert Shift:=xlDown
ActiveCell.Offset(22, 0).Select
Loop
Range("A1").Select
End Sub