make all data sets in different rows

[johncena]

dear friends in my document column "B" has different sets of data.first row has document header.that each sets should start with row 7,12,17,22,etc...
for that i have tried below macro & it's work very well.only the problem is this macro rows counting start from first row.but i want to change it to second row.(first row has header) pls help me how i can i do it......

Sub newinsertrows()
Dim groupsize As Integer
groupsize = 5
Range("B3").Select
Do While IsEmpty(ActiveCell) = False
    If ActiveCell.Value <> ActiveCell.Offset(-1, 0).Value Then
        Do While ActiveCell.Row Mod groupsize <> 1
            ActiveCell.EntireRow.Insert shift:=xlDown
            ActiveCell.Offset(1, 0).Select
        Loop
    End If
    
    ActiveCell.Offset(1, 0).Select
Loop
End Sub

[snb]

Don't use select or activate in VBA.

sub alt1()
  for j=sheets(1).usedrange.rows.count to 2 step -5
     sheets(1).rows(j).resize(5).insert
  next
End Sub

[johncena]

Don't use select or activate in VBA.

sub alt1()
  for j=sheets(1).usedrange.rows.count to 2 step -5
     sheets(1).rows(j).resize(5).insert
  next
End Sub

thanks for your reply but this not work for me.macro should run base on column "B".pls help me..

[snb]

Did you try to read the code I gave ?
Did you analyse it ?
Do you know what usedrange means ?

[johncena]

Did you try to read the code I gave ?
Did you analyse it ?
Do you know what usedrange means ?

i have attached sample sheet.pls check it.my problem is as a my sample sheet second set should start with row # 7.but my macro it's starting with row # 6.pls help me,..

[johncena]

any other helps..