make all data sets in different rows

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