autofill with dynamic range again

[a]

I found a way to get the result I want without using the autofill - see
below - but I was still hoping that there was a way to use the autofill.

If anybody knows - please help me with this one.

Thanks much.



Sub AutofillAttempt()
Range("b2").FormulaR1C1 = "1"
Range("b3").FormulaR1C1 = "=1+R[-1]C"
Range("b3").Activate
Intersect(Range(ActiveCell, _
Cells(Rows.Count, ActiveCell.Column)), _
ActiveCell.CurrentRegion).FillDown
End Sub