Copy/Autofill formula to last cell

[tipd]

I cannot get this to work, only cell B2 has the formula and it will not copy down the row to the last row with data. What have I done wrong?

ActiveCell.FormulaR1C1 = "=R[-1]C+1"

Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row).AutoFill Destination:=Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row), Type:=xlFillCopy

 

[Joe4]

Welcome to the Board!

You probably need to look at column A to determine how far down to go, since column B does not have all the rows populated yet.
You can combine both lines into this (you don't need to use Autofill, just populate all the rows at once with a formula):

Range("B2:B" & Cells(Rows.Count, "A").End(xlUp).Row).FormulaR1C1 = "=R[-1]C+1"

 

[tipd]

Welcome to the Board!

You probably need to look at column A to determine how far down to go, since column B does not have all the rows populated yet.
You can combine both lines into this (you don't need to use Autofill, just populate all the rows at once with a formula):

Range("B2:B" & Cells(Rows.Count, "A").End(xlUp).Row).FormulaR1C1 = "=R[-1]C+1"

Thank you Joe4, that was it! I feel so silly.

 

[Joe4]

You are welcome.
Glad I was able to help!