Hi,
Insert Calendar(I used Calendar Control 9.0)
insert the following formula in B1:
=CountA(A:A)+1
this will tell the calendar to write to the next blank space.
Insert this code into sheet1:
Private Sub Calendar1_Click()
Range("A" & Range("B1").Value).Value = Calendar1.Value
End Sub
HTH,
Corticus