Ahhh, I see what you want.
All you need to do is make a macro and enter this line
ActiveCell.Value = Format(Now(), "dd/mm/yyyy")
Change the format to what you want or format the particular cell.
If you want the date to go into a specific cell and not the active cell use this
Cells(x, y).Value = Format(Now(), "dd/mm/yyyy")
where x is the row number and y is the column number. You can't use the column letter in this function
Use the forms toolbar to add a button and create/link the associated macro.
MAx