You do it just how you said except where you have put  Entered Data you either
put the value you want to enter  (this can be quoted text like "August" or a
numeric value like 47.839. Or you can have a variable like this


iMyYear = Year(Now())
Cells(iCurCol, iCurRow).Value = iMyYear