Please add example workbooks to save us wasting time recreating them
The below should work as a stand alone Macro, not done it as selection change
Code:
Sub CheckDate()
Dim TheDate As Date
TheDate = Date
If ActiveCell.Value = "" And ActiveCell.Offset(-1, 0) = TheDate Then
Range("A" & ActiveCell.Row) = TheDate
End If
End Sub