Colocar hora automaticamente ao digitar no Excel pelo VBA

 Código do vídeo

On Error Resume Next

If Target.Column = 1 Then

LINHA = Target.Row

If Target.Value <> "" Then

 Range("b" & LINHA).Value = Now

Range("b" & LINHA).Value = Format(Range("b" & LINHA).Value, "dd/mm/yyyy hh:mm:ss")

End If

End If