Display dropdown list in cell if condition is met

Thanks!

2 questions:

1)What is the purpose of the line

If Intersect(Range("A1"), Target) Is Nothing Then Exit Sub

2)is it possible to avoid of hardcoding the date items in the code (Macro1())? WE already have the dates in data validation of the cell.