This one, though recorded will work. In Sheet2!A1, I wrote =Today()
This macro goes to Sheet2!A1, copies the date, then finds it in column A of Sheet1.
Sub Macro3()
Application.ScreenUpdate = False
Sheets("Sheet2").Select
Selection.Copy
Sheets("Sheet1").Select
Cells.Find(What:="02/24/2002", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _
MatchCase:=False).Activate
Application.ScreenUpdating = True
End Sub
I recorded it then added screen updating. Might be an easier way.