Excel hora actual

Inseratr macro que al presionar el boton , se inserte una fecha y hora actual 

en una celda de excel:

Sub Ahoraa()

' Hora actual

    Range("A2").Select

    ActiveCell.FormulaR1C1 = "=NOW()"

' copiamos contenido

    Range("A2").Copy

    fon = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1

    Range("A" & fon).PasteSpecial xlPasteValues

    Application.CutCopyMode = False 

'Range("A4").EntireRow.Insert

'fecc = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row + 1

'Range("A" & fecc).Value = "=NOW()"

End Sub