VBA Last Column but specific row for formula?

[ExcelNoob222]

Hi all,

I need to put a formula in the last column of a specific row and then I need that formula to be dragged down to the last row. However I am stuck. I currently have the code:

LastRow = Range("A" & Rows.Count).End(xlUp).Row
Rows(2).Find("*", , xlValues, , xlByColumns, xlPrevious).Offset(, 1).Formula = "=SUMIFS($R$4:$R$9,$O$4:$O$9,A2)"

This will find the last column in Row 2 and place the formula there. But how do I then get that formula to drag all the way down? Thanks!

 

[Fluff]

How about

lastrow = Range("A" & Rows.Count).End(xlUp).Row
Cells(2, Columns.Count).End(xlToLeft).Offset(, 1).Resize(lastrow - 1).Formula = "=SUMIFS($R$4:$R$9,$O$4:$O$9,A2)"

 

[ExcelNoob222]

How about

lastrow = Range("A" & Rows.Count).End(xlUp).Row
Cells(2, Columns.Count).End(xlToLeft).Offset(, 1).Resize(lastrow - 1).Formula = "=SUMIFS($R$4:$R$9,$O$4:$O$9,A2)"

Perfect! Thanks for your help.

 

[Fluff]

You're welcome & thanks for the feedback.