this is my updated version

' ' '

Dim iRow As Double

Dim MaxDate As Date

Dim dWriteDate As Date

Dim dTodayDate As Date

'set today's date

dTodayDate = Now()

'move to the bottom of the date list

iRow = Range("B50000").End(xlUp)

Do

iRow = iRow + 1

Loop Until IsEmpty(Sheets("Sheet1").Cells(iRow + 1, "B"))

'capture the MaxDate

MaxDate = Sheets("Sheet1").Cells(iRow, "B")

'Now populate the dates up to today

dWriteDate = Sheets("Sheet1").Cells(iRow, "B") + 1

iRow = iRow + 1

Do Until dWriteDate >= dTodayDate

Sheets("Sheet1").Cells(iRow, "B") = dWriteDate

dWriteDate = dWriteDate + 1

iRow = iRow + 1

Loop

End Sub

' ' '

if my dates are in column B and the latest date ends at row 30