Try

LastRow = .Cells(.Rows.Count, "O").End(xlUp).Row

With .Range("Q1:Q" & LastRow - 1)
.FormulaR1C1 = "=RC15/SUM(R1C15:R" & LastRow & "C15)*Fees"
End With


--
__________________________________
HTH

Bob

"Heather" wrote in message
...
Hi, I'm trying to use VBA to do some automation and was wondering if
someone
might be able to help me figure out what Im doing wrong?


In Column O I have a list of #'s with a total at the bottom of the list
but
it can always end on a different row

So, I'm trying to take the 1st # in Row O and % it by the total of that
column? and then proceed down the list allocating each from the total --
Can
anyone help?

Thank you


'Sets the %Allocation
With .Range("Q2:Q" & target.Row - 1)
.FormulaR1C1 = "=RC15/R" & target.Row & "C15 * Fees"

.Offset(, 0).FormulaR1C1 = "=ROUND(RC/R[3]C,8)"
End With