Welcome to the Board!
Assuming you have a list of dates and they're in column A, how's this:
<font face=Tahoma><SPAN style="color:#00007F">Sub</SPAN> foo()<br> <SPAN style="color:#00007F">Dim</SPAN> i <SPAN style="color:#00007F">As</SPAN> <SPAN style="color:#00007F">Long</SPAN><br> <SPAN style="color:#00007F">For</SPAN> i = Cells(Rows.Count, "A").End(xlUp).Row <SPAN style="color:#00007F">To</SPAN> 2 <SPAN style="color:#00007F">Step</SPAN> -1<br> <SPAN style="color:#00007F">If</SPAN> Cells(i, "A") <> Cells(i, "A").Offset(-1) <SPAN style="color:#00007F">Then</SPAN> Cells(i, "A").EntireRow.Insert<br> <SPAN style="color:#00007F">Next</SPAN> i<br><SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN></FONT>
Hope that helps,