VBA TimeStamp where Date and time are entered into different cells

[10nya]

Hi everyone needing some assistance writing a VBA. I am trying to timestamp when information is entered into Cell A. I want Date to enter into Cell B and Time to enter into Cell C.
I am able to get it to work with this VBA for Date but when I add the Time it seems to slow or freeze excel. Does anyone have any suggestions?
Private Sub Worksheet_Change(ByVal Target As Range)
' Auto Date
Dim Cell As Range
For Each Cell In Target
If Cell.Column = Range("A:A").Column Then
If Cell.Value <> "" Then
Cells(Cell.Row, "B").Value = Date
Else
Cells(Cell.Row, "B").Value = ""
End If
End If
Next Cell
End Sub

 

[Michael M]

MAybe this UNTESTED

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target.Value <> "" Then
Target.Offset(0, 1).Value = Date
Target.Offset(0, 2).NumberFormat = "h:mm:ss AM/PM"
Target.Offset(0, 2).Value = Time
End If
Application.EnableEvents = True
End Sub