Put something along these lines into the worksheet code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Union(Range("D2:D2000"), Target).Address = "$D$2:$D$2000" Then _
Target.Offset(0, 1) = Date
End Sub