Refreshing Date or Now function

have a look here
http://www.cpearson.com/excel/OnTime.aspx

your code
in the bit where it says enter your code should look like this

Sub The_Sub()
 [a1] = Now
   ' Call StartTimer to schedule the procedure again
   StartTimer
End Sub

where a1 is the cell your time is to be