Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
If Not Intersect(Range("A2:D5"), Target) Is Nothing Then
If Target <> "" Then
Range("E" & Target.Row) = Date
End If
End If
Application.EnableEvents = True
End Sub