Dim c As Integer ' здесь будет количество строк
c = UsedRange.Rows.Count ' количество строк
Cells(1, 3).FormulaR1C1 = "=RC[-1]+RC[-2]" ' формула в первой строке
Cells(1, 3).AutoFill Destination:=Range(Cells(1, 3), Cells(c, 3)) ' автозаполнение всего диапазона
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.