間違えた
Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, Range("A1:C2")) Is Nothing Or Target.Cells.Count > 6 Then Exit Sub
columns（"d"）.clearcontents
application.enableevents=false


日付1 = dateserial（range（"a1"）,range（"b1"）,range（"c1"））
日付2 = dateserial（range（"a２"）,range（"b２"）,range（"c２"））

For 日付 = 日付1 To 日付2

R = R + 1
Cells(R , "D") = 日付
Next

application.enableevents=true
End Sub