Sub showDates()
Dim fromDate As String, toDate As String
Dim rowno As Integer
fromDate = "12/15/2021"
toDate = "10/1/2022"
Worksheets("Sheet2").Cells(1, 2) = fromDate
For rowno = 1 To DateDiff("d", fromDate, toDate)
Worksheets("Sheet2").Cells(rowno + 1, 2) = DateAdd("d", 1, Sheets("Sheet2").Cells(rowno, 2))
Next
End Sub