insertar fecha con VBA

he creado un boton en una plantilla de excel, y tiene el siguiente

Private Sub CommandButton1_Click()

ActiveCell.Insert = Now()

End Sub

me da un error 424 en tiempo de ejecucion se requiere un objeto.

Espero sugerencias, muchas gracias :D
Javier Avila
System Adminsitrator

COMENTARIO DE LORD COHEN. La viabilidad de una operación no es el mejor
indicativo de sus resultados.