Am new in macro. i encountered runtime error trying to develop a sub to do
same work as SUBTOTAL. I had problems on the line the line that has a
combination of declared variable and cell formula: ActiveCell.FormulaR1C1 =
"=RC[-1]+ TOT" Below is the full code.


Dim z As Long
Dim TOT As Double
z = 3
Range("C2").FormulaR1C1 = "=RC[-1]"
TOT = Range("C2").Value

Do While Range("A" & z) < ""

If Range("A" & z).Value = Range("A" & z - 1).Value Then

'Range("C" & z - 1).FormulaR1C1 = "=RC[-1]+R[-1]C"

Range("C" & z).Select
ActiveCell.FormulaR1C1 = "=RC[-1]+ TOT"

TOT = "=RC[-1]" + TOT
Range("C" & z - 1).FormulaR1C1 = 0

Else
Range("A" & z).Select
ActiveCell.FormulaR1C1 = 0

End If
z = z + 1
Loop