Look Specifi Date and Copy Formula

[brites]

Hi guys, this is a entrance / exit time control spreadsheet.
Once I click the button, I need a macro to look for "today" on Column A and copy the formula "=now()" on the respective row on column B.

Im getting confused on the "look for" part... Tx in advance!

 

[brites]

I Got it!!!
Thx anyway!

If there is any fancier way, please share!

Sub Entrance()

Dim r As Long
Dim day As Date
For r = 2 To 366
day = Range("A1")
'I left it with a formula
If Cells(r, 1) = dia Then
Cells(r, 5) = "=now()"
End If
Next r

End Sub