insert space between date range

KennyMcG 

An alternative could be this code. You can change the data in column A from this:

to this by running the macro:

The code inserts a blank cell each time the day changes no matter if days are consecutive.

Sub insert_blank()

Dim i, j As Long

j = Range("A" & Rows.Count).End(xlUp).Row

For i = j To 2 Step -1

If Day(Cells(i, 1)) = Day(Cells(i - 1, 1)) Then
Else
Cells(i, 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
End If

Next i

End Sub