Need a VBA to enter date in a cell (F1) when ever cell (E1) content is changed

Hi, This should work if a user changes the value in a single cell in range "B:D", Needs to go on in the code for the appropriate sheet as opposed to a module. 

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrorHandler:
If Not Intersect(Target, Range("B:D")) Is Nothing Then
Dim OldValue As Variant
Application.EnableEvents = False
Application.Undo
OldValue = Target.Value
Application.Undo
Application.EnableEvents = True
If OldValue <> Target.Value Then
Cells(Target.Row, 6).Value = Date
End If
End If
ErrorHandler:
End Sub

If a user needs to be able to change multiple cells at once (Ie. deleting values from a selection; this gets a lot messier, let me know if that is a need and I'll try to figure it out, right now it just exits the sub and does nothing if multiple cells are changed, not sure what your requirement for having multiple cells changed at once is), also because of how this is structured using the undo command you'd have to hit enter twice after entering the value instead of once to go down to the next cell.