Row Inserter Macro

[Rashid Khan]

Hello All,
I have data in Col A starting from Row 1 in set of 10 Rows each in continous
form... going upto 22000+ rows
For Eg.
1
2
3
4
5
6
7
8
9
10
...... 22,000 rows down

I wish to insert a blank row after every 10th Row so that the data in Col A
is separated by a blank row after every 10th row...
For eg.
1
....
....
10
<blank row>
11
...
...
20
<blank row>
and so on so forth.
I got the following macro from the NG and I have modified LastRow To 10
Step -10... to suit my needs but I dont get the desired results..Would
somebody help me. What am I doing wrong? I have very limited knowledge of
VBA

Sub RowInserter()
Dim LastRow As Long
Dim i As Integer
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For i = LastRow To 10 Step -10
Cells(i, 1).EntireRow.Insert
Next i
End Sub

Thanks in advance

Rashid Khan

 

[Bob Flanagan]

Rashid, try the following:

Dim cell As Range
Set cell = Cells(11, 1)
While Not IsEmpty(cell)
cell.EntireRow.Insert
Set cell = cell.Offset(10, 0)
Wend

Bob Flanagan
Macro Systems
Delaware, U.S. 302-234-9857
http://www.add-ins.com
Productivity add-ins and downloadable books on VB macros for Excel

 

[Rashid Khan]

Hi Bob,
Voila. It works like a charm. Thanks for your time and help.
Rashid