If I understand right, this Marco Written by Barrie Davidson will do what you want
Sub Insert_row()
' Written by Barrie Davidson
Dim Number_of_rows As Long
Dim Rowinsert As Integer
Number_of_rows = Range("A65536").End(xlUp).Row
Ans = InputBox("How many rows do you want to insert ?", "Rows", 1)
If IsNumeric(Ans) Then
Rowinsert = CInt(Ans)
Else
MsgBox "Invalid number entered", vbCritical, "Error"
Exit Sub
End If
Range("A2").Select
Do Until Selection.Row = Number_of_rows + 1
If Selection.Value <> Selection.Offset(-1, 0).Value Then
Selection.EntireRow.Resize(Rowinsert).Insert
Number_of_rows = Number_of_rows + Rowinsert
Selection.Offset(Rowinsert + 1, 0).Select
Else
Selection.Offset(1, 0).Select
End If
Loop
End Sub