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