Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Application.Intersect(Range(Target.Address), Range("B:G")) Is Nothing Then Exit Sub
If Target.Value = Date Then
i = Target.Row
While Cells(i, 1).Value = Cells(i - 1, 1).Value
i = i - 1
Wend
Cells(i, "N").Value = ""
End If
End Sub