Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A3:A100")) Is Nothing then SetBE Target
End Sub
Private Sub SetBE(Target As Range)
Dim Cel As Range
Set Cel = Target 'Stop using var Target ASAP
If Cel.Count > 1 Then Exit Sub 'Change was not made by a User
Appplication.EnableEvents = False 'Don't let the Changes to B and E trigger another Change Event
With Sheets("ADMIN")
' "Cel" is still on the "Targeted" Sheet
' An unqualified "Space Dot Range" is on the "With'ed" Sheet
' "Cells" with no dot refers to the "Targeted" Sheet
If Cel >= 1/1/2020 Then
Cel.Offset(0, 1) = .Range("D2")
Else
'Alternate style of addressing
Cells(Cel.Row, "E") = .Range("E2")
End If
End With
Appplication.EnableEvents = True
End Sub