Inserting a row when the value of a field changes

I was using this code as a start but can't seem to mak it do exactly what I want.

Sub InsertRows()
Dim r As Long, mcol As String, i As Long

' find last used cell in Column A
r = Cells(Rows.Count, "A").End(xlUp).Row

' get value of last used cell in column A
mcol = Cells(r, 1).Value

' insert rows by looping from bottom
For i = r To 2 Step -1
If Cells(i, 1).Value <> mcol Then
mcol = Cells(i, 1).Value
Rows(i + 1).Insert
End If
Next i

End Sub

Here is my code.
I am inserting a row after the value in volumn B changes. It is not inserting the first break when thevalue changes starting from the bottom.
I also do not want to insert a row after my column headings. HELP!

Sub InsertRows()
Dim r As Long, mcol As String, i As Long

Sheets("Sheet1").Select

' find last used cell in Column B
r = Cells(Rows.Count, "B").End(xlUp).Row

' get value of last used cell in column A
mcol = Cells(r, 2).Value

' insert rows by looping from bottom
For i = r To 2 Step -1
If Cells(i, 1).Value <> mcol Then
mcol = Cells(i, 1).Value
Rows(i + 1).Insert
Rows("2:2").Select
Selection.Copy
End If
Next i

End Sub