Try this in the worksheet code

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, ActiveSheet.Range("A:A")) Is Nothing Then Exit Sub
Range("B" & Target.Row).Value = Now()
End Sub