Al oprimir Enter capturar la hora actual en una celda.

Entrá al Editor (con Alt+F11), seleccioná desde el panel a tu izquierda con doble clic el objeto HOJA donde vas a hacer este control, y allí copiá esta macro:

Private Sub Worksheet_Change(ByVal Target As Range)
'x Elsamatilde
'controlamos lo que se ingresa en col 1 (A)
If Target.Column <> 1 Then Exit Sub
'si el dato es numérico se coloca fecha en col I
If Not IsNumeric(Target) Then Exit Sub
Target.Offset(0, 8) = Format(Now(), "hh:mm")
End Sub

PD) Te recuerdo que en este foro hay que FINALIZAR las consultas, de lo contrario quedarás bloqueado x un tiempo y además los expertos solo hacemos excepción con 1 cerrada... no acumules otra

Mil disculpas puse la celda A10 y en realidad es D10 igualmente cambie las posiciones y quedo algo asi:

Private Sub Worksheet_Change(ByVal Target As Range)

'x Elsamatilde 'controlamos lo que se ingresa en col 4 (D)

If Target.Column <> 4 Then Exit Sub

'si el dato es numérico se coloca fecha en col I

If Not IsNumeric(Target) Then Exit Sub Target.Offset(0, 5) = Format(Now(), "hh:mm")

End Sub

Elsa ahora necesito agregar una posición en la macro que al borrar el dato numérico ingresado en col 4 me borre la hora en col I, ya que he observado que al borrar el dato numérico no se me borra la hora.