El código ha dejado de funcionar

BUenos Días, he estado usando el código que me facilitaste pero se ha vuelto loco y no encuentro el porque.
Te detallo el código para que recuerdes y el problema.
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Range("A1:A10000"), Target) Is Nothing Then
ActiveCell.Activate
ActiveCell.Offset(-1, 1).Value = Date & " " & Time
End If
End Sub.
El problema es que de repente ya no funciona como corresponde, ahora tengo unas 2000 consultas pero cuando ingreso en la celda a2000 el dato "x" en la columna la celda b2000 queda en blanco pero donde si re-actualiza el dato es en la b1999. Es decir ahora va una celda "atrasado", y no entiendo por que, es más si reingreso el dato y pulso enter entonces la "fecha" me la marca en la celda C1999, vamos que se ha vuelto loco...
Sabes por que puede pasar esto..¿?...