This is what I have come up with:
Set c = Range("A1:A365")
For Each cell In c
If cell.Value = Range("B1").Value Then
Application.CutCopyMode = False
The fifth line of the code:
If cell.Value = Range("B1").Value Thenrefers to the cell B1 of sheet3. Change this cell to whatever you prefer as long as it has the folowing formula in it: =TODAY().
I have no idea how cell A10 fits into the story, maybe a typo (A10 = A14).