Sub GroupByDate()
'Sorts dates, then looks for date changes in column A and inserts
'blank color-filled row (cols A and B only) when date changes
Dim iRow As Long
Dim LastCell As Range
Dim DT As Date
'Sort columns A and B using col A (dates) as the key.
Set LastCell = Range("B65536").End(xlUp)
Range("A2", LastCell).Sort key1:=Range("A1")
'Now insert grouping separators
iRow = 2
Do
If Int(Cells(iRow + 1, "A")) > Int(Cells(iRow, "A")) Then
'date change occurred between iRow and iRow+1
iRow = iRow + 1
Rows(iRow).Insert
Range(Cells(iRow, "A"), Cells(iRow, "B")).Interior.Color = RGB(100, 100, 100)
End If
iRow = iRow + 1
Loop Until IsEmpty(Cells(iRow, "A"))
End Sub