Excel 2007 - Macro to insert entire row based on criteria

How about:

Sub dural()
n = Cells(Rows.Count, 1).End(xlUp).Row
i = 2
LoopTop:
    If Cells(i, 1) <> Cells(i - 1, 1) Then
        Cells(i, 1).EntireRow.Insert
        n = Cells(Rows.Count, 1).End(xlUp).Row
        i = i + 1
    End If
    i = i + 1
    If i > n Then Exit Sub
GoTo LoopTop
End Sub