Copying Formula to bottom of column based on last cell in another coulum

[JTL9161]

I am trying to copy the formula in the active cell in column F to the bottom line of column F based on the last cell with data in column J. When I use the below code it copies it all the way down column F past the last cell in J.

Am I forgetting something in this code?

LastRowF = Range("F" & Rows.Count).End(xlUp).Row
LastRowJ = Range("J" & Rows.Count).End(xlUp).Row
Range("F" & LastRowF).AutoFill Destination:=Range("F" & LastRowF & ":F" & LastRowJ)

Thanks
James

 

[Fluff]

Re: Copy Down

How about

lngLastRow = Range("A" & Rows.Count).End(xlUp).Row
Range(ActiveCell, Cells(lngLastRow, ActiveCell.column)).FormulaR1C1 = _
   "=IF(COUNTIF('Xceptor T'!C1,RC1), ""UPDATED"", ""FAILED"")"

 

[Sushiboy]

Re: Copy Down

Thank you fluff. That’s worked!

 

[Fluff]

Re: Copy Down

You're welcome & thanks for the feedback