inserting multiple rows after nth rows

[edgrilufi]

I am trying to insert 6 blank rows after every 6 rows of data using a macro. I have this code but it just inserts 1 blank row every 6 rows of data.

Sub Insert7thRow()

Dim rCell As Range, l As Long
For Each rCell In Selection
l = l + 1
If l Mod 7 = 0 Then rCell.EntireRow.Insert
Next rCell

End Sub

Can someone help me?
thanks

 

[venkat1926]

data is from A1 down number of rows with no column headers

sample data as follows

Excel Workbook
	A
1	1
2	2
3	3
4	4
5	5
6	6
7	7
8	8
9	9
10	10
11	11
12	12
13	13
14	14
15	15
16	16
17	17
18	18
19	19
20	20
21	21
22	22
23	23
24	24
25	25
26	26
27	27
28	28
29	29
30	30
31	31
32	32
33	33
34	34
35	35
36	36
37	37
38	38
39	39
40	40
41	41
42	42
43	43
44	44
Sheet1

try this macro test which is slight modification of yours

Sub test()
Dim j As Long

For j = Range("a1").End(xlDown).Row To 1 Step -1
If j Mod 7 = 0 Then Range(Cells(j, 1), Cells(j + 5, 1)).EntireRow.Insert
Next j
End Sub

Sub undo()
Range("A1").EntireColumn.Sort key1:=Range("A1"), header:=xlNo
End Sub

modify the macros to suit you