Problemas con Formulario en excel

[ceSharp]

hola patricia,

no sé si es tarde para tu ejercicio pero te paso una posible solución.
--------------------------
Private Sub CommandButton1_Click()

Dim x As Integer
x = ActiveCell.Row

Selection.EntireRow.Insert
Range("A1").Select
Selection.Copy
Rows(x & ":" & x).Select
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub
--------------------------------------
suponiendo que en tu celda A1 tienes el formato correcto de fecha y hora, esta función aplica el mismo formato que tiene A1 para la nueva fila insertada.
Espero que te sirva.

salu2