Hi,

I am have a spread sheet that has dates in "B" and ranges to "F" with other data elements. The data provided in the Date column only accounts for workdays, however I need to have the all the dates of the month that I am working on. I am working on a code that works fine until I get towards the end of the month (e.g. the last date provided is 03/28/13 but I also need the code to add in dates after the last date provided meaning 03/29/13, 03/30/13, 03/31/13. This is the code that I have so far:

Sub ABC()
Dim rw As Long, colDate As String, colDay As String
Dim colLocation As String
rw = 2
colDate = "B"
Do
If Cells(rw + 1, colDate) = "" Or Cells(rw, colDate) = "" Then
rw = rw + 1
Else
If Cells(rw, colDate) < Cells(rw + 1, colDate).Value - 1 Then
Rows(rw + 1).EntireRow.Insert
Cells(rw + 1, colDate).Value = Cells(rw, colDate) + 1
rw = rw + 1
Else
rw = rw + 1
End If
End If
If rw > Cells(Rows.Count, colDate).End(xlUp).Row Then Exit Do
Loop
End Sub

How can I make it complete the task until the end of the month insted of just until the last day provided by the sheet? Can someone help me out with this?

Best

Kaygu