I am trying to use code to find the next available empty row in a column (A)
and add amonths worth of days in rows and autofill the rows with formula,
conditional formatting, pattern of increment in formaul, dates & numbers etc

The code I use at present is like this

Range("A1").Select

Do

If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If

Loop Until IsEmpty(ActiveCell) = True

--- This line i dont know how to do....

Range(ActiveCell:Activecell - 1).Autofill
Destination:=Range("ActiveCell:????)

Can you tell me how to add a month to the column in days based on the entry
in the cell above the (ActiveCell).

If I can do this I can then I will be able to automate the deletion of a
month of rows and addition of a month of rows to keep the spreadsheet size
down.

Thanks for you help
Rob