Hi,

Maybe this

lastrow = Cells(Rows.Count, "O").End(xlUp).Row
ActiveCell.Formula = "=SUBTOTAL(9,O3:O" & lastrow & ")"

Mike

"pol" wrote:

Please help in the following example how I can give end of column
instead of O193


ActiveCell.FormulaR1C1 = "=SUBTOTAL(9,O3:O193)"

with thanks and regards

Pol