Fill Down to variable row
 

I tried some of the suggestions in other posts, but none seemed to work for
me.

How can I fill down formulas I've entered (via macro) in R3C23 and R3C24 to
the last row of my sheet that has data. The columns will stay constant, but
the rows will vary.

So far I have this:
Application.Goto Reference:="R3C23"
ActiveCell.FormulaR1C1 = "=IF(RC[-13]<RC[-15],""expedite"")"
Application.Goto Reference:="R3C24"
ActiveCell.FormulaR1C1 = "=IF((RC[-14]/RC[-16])*100<50,""fast"")"

Filling down those two formulas is where I'm lost.

Thanks for any help,

Sean

Fill Down to variable row
 

You can use "Do While" Loop, but you can only enter one formula

intLOOP is a local variable, serves as a row counter until row
"c+intLOOP" = blank

' Loop to copy formula to every Row in column "D"
intLOOP = 1
Do While Range("c" & intLOOP).Value < ""
Range("d" & intLOOP).Formula =
"=IF(RC[-13]<RC[-15],""expedit*e"")"
intLOOP = intLOOP + 1
Loop

Let me know if you need any additional assistance.
Roberto