Cells(какая нибудь ячейка).FormulaR1C1 = "=SUM(Твой диапазон)"
а потом считай эту ячейку
Я не хочу быть самым богатым человеком на кладбище. Засыпать с чувством, что за день я сделал какую-нибудь потрясающую вещь — вот что меня интересует. Стив Джобс