Hi,
the code that follows would do it:
Sub insertBlank()
'
'
Application.ScreenUpdating = False
Dim startPoint As Integer
Dim noToCheck As Integer
Dim i As Integer
startPoint = ActiveCell.Row
Selection.End(xlDown).Select
noToCheck = ActiveCell.Row - startPoint
Selection.End(xlUp).Select
For i = 1 To noToCheck
If ActiveCell.Value = ActiveCell.Offset(-1, 0).Value Then
ActiveCell.Offset(1, 0).Select
Selection.EntireRow.Insert
End If
ActiveCell.Offset(1, 0).Select
Next i
Application.ScreenUpdating = True
End Sub
If you select the cell at the top left and then run it it would do it. (This probably isn't the most eloquent way to do it but if you're in a hurry it'll do it.)
If you have not used macros before let me know and I'll try to help further.
Regards,
Will