Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("D2:L1000")) Is Nothing Then
Application.EnableEvents = False
Cells(Target.Row, 1) = Application.UserName
Cells(Target.Row, 2) = Format(Now, "dd/mm/yyyy hh:mm:ss")
Cells(Target.Row, 3) = Target.Address(False, False)
Application.EnableEvents = True
End If
End Sub