Adding a space between rows depending on data

Hi, can someone tell me how to do the following...

I have a spreadsheet with thousands of rows. One of the columns (Column Q) is a Date of Service column and the spreadsheet is ordered from the oldest date of service to the newest. I want to add a space between each new date of service. The problem is that there may be 10 rows with the date of service of 01/01/12, then 3 rows with the date of service 01/02/12, and then 15 rows with the date of service 01/03/12. In this example, I would want a space between the last 01/01/12 dos and the first 01/02/12 date of service, and then a space between the last 01/02/12 date of service and the first 01/03/12 date of service, and so on.

Thanks

That works but it didn't do exactly what I needed which I probably didn't explain well enough. That macro does insert the spaces as needed. But I need the spaces to apply to the entire row, not just column Q. As is, the Macro inserts the space correctly in column Q but all of the other columns remain as is.

I tried the new code but it didn't appear to make any changes. There were no spaces added in any of the columns. Any ideas?

Blake 7, I appreciate your help but I was never able to get your code to work with my spreadsheet.

However, I did find a code that worked for me. I'm going to post it here in case anyone else ever sees this thread or needs it. This is assuming the date is in Column Q:

Sub InsBl()
Dim LR As Long, i As Long
LR = Range("Q" & Rows.Count).End(xlUp).Row
For i = LR To 2 Step -1
If Range("Q" & i).Value <> Range("Q" & i - 1).Value Then Rows(i).Insert
Next i
End Sub

Thanks again!