>>406
アドバイスありがとうございます！
初心者なのですが業務上ユーザーフォームを使わなければならなくて（泣
Private Sub Worksheet_Change(ByVal Target As Range)
Dim 日付1 As Integer, 日付2 As Integer
日付1 = Datesirial(適当に)
日付2 = Datesirial(適当に)

For day = 日付1 To 日付2
R = R + 1
Cell(R , "D").Value = day
Next d

End Sub

↑こんな感じでしょうか？初心者すぎて変数宣言とかむずかしいです