Assuming everytime you run the macro you want to add a date below the
last date entered try this.

Option Explicit

Sub Test()

Dim i As Integer

i = 0
' Assuming you want the active sheet
Do While Not IsEmpty(Range("A1").Offset(i, 0))
i = i + 1
Loop
Range("A1").Offset(i, 0) = Date$

End Sub


*** Sent via Developersdex http://www.developersdex.com ***