|In it's simplest form, this code will place the date in any cell in Column A as soon as you select the cell. |
If you need to limit this action to a specific range, you'll have to let us know.
Right click the sheet tab for the sheet you want to do this in and choose View Code. Paste the code below into the pane that opens, then select a cell in Column A.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then Target = Date
Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.