Registrar automáticamente la Fecha y la Hora en la que se ingresa un dato a una Tabla

Código

Private Sub Worksheet_Change(ByVal Target As Range)

Dim t As ListObject, F As Long, IB_JMMA As Range

Set t = Me.ListObjects("")

F = t.HeaderRowRange.Row

Set IB_JMMA = Intersect(Target, t.ListColumns("").DataBodyRange)

If Not IB_JMMA Is Nothing Then

If IB_JMMA.Value <> "" Then

With t.ListColumns("").DataBodyRange

If .Cells(IB_JMMA.Row - F).Value = "" Then

.Cells(IB_JMMA.Row - F).Value = Format(Now, "mm/dd/yyyy")

End If

End With

With t.ListColumns("").DataBodyRange

If .Cells(IB_JMMA.Row - F).Value = "" Then

.Cells(IB_JMMA.Row - F).Value = Format(Now, "hh:mm:ss")

End If

End With

End If

End If

End Sub