Private Sub Worksheet_Change(ByVal Target As Range)
Dim CelA As Range, CelF As Range
If Not Application.Intersect(Target, Range("F20:F110")) Is Nothing Then
Set CelF = Target.Areas(1).Cells(1)
Set CelA = CelF.Offset(, -5)
Application.EnableEvents = False
CelA.Value = Array(Date, "")(Abs(CelF.Value = ""))
Application.EnableEvents = True
End If
End Sub