start_date = ThisWorkbook.Worksheets("Sheet1").Cells(1, 1).Value
end_date = ThisWorkbook.Worksheets("Sheet1").Cells(1, 2).Value

Dim diff
diff = DateDiff("d", start_date, end_date)

For i = 0 To diff
  ' ここに処理を書く
Next i