Abilio,

Try this:

Sub Abilio()
Range("R2:R" & Cells(Rows.Count, 8).End(xlUp).Row).FormulaR1C1 = _
"=((RC[-4]/RC[-5])*RC[-10])*100"
End Sub

HTH,
Bernie
MS Excel MVP


"Abilio" wrote in message
...
Hello all,


How do I create a macro procedure to make a calculation using this rows? the
number of columns will vary each time I use the macro:

R:R will be the column receiving the results.

R:R=((N:N/M:M)*H:H)*100

I appreciate the help