[524td]

Нашел формулу в екселе

Sub Ìàêðîñ2()
'
' Ìàêðîñ2 Ìàêðîñ
'

'
    Range("C11").Select
    ActiveCell.FormulaR1C1 = "=SUM(R[-10]C[-1]:worshippy:/>[-1]C[-1])"
    Range("C12").Select
End Sub

Только вот не знаю как перенести ее в навик(