Do Until Loop in VBA

Hi Ed

Thanks for question.

Your code seems to work fine. Though it does create an extra month end date at the end. Is that what you found?

Also the dates are not date formatted.

Here's yours with a couple of changes

Dim BeginPos As Integer
Dim LastDate As Date
Do Until LastDate = ThisWorkbook.Sheets("Input").Range("C9")

BeginPos = Range("A" & Rows.Count).End(xlUp).Row

Range("A" & BeginPos + 1).Select

Selection.FormulaR1C1 = "=eomonth(R[-1]C1+1,0)"
Selection = DateValue(Format(Selection, "dd/mm/yy"))

LastDate = Selection
Loop


Notes
Moving the line LastDate = Selection to the end of the loop ensures you don't get an extra month.

The line starting Selection = Datevalue(..
formats the dates.

You have to type the start date eg 31/01/17 into the first selected cell then run the macro.

Your macro is similar to dragging to Autofilling an end of month date and then choosing Fill Months.

Hope this helps!

Regards
Doug
STL