Воспользоваться стандартной функцией (без использования ячейки)- Visual Basic(Бейсик)

iResult = Application.Sum(Range("B5:B10"))
 
iResult = WorksheetFunction.Sum(Range("B5:B10"))
 
iResult = Excel.Application.Sum(Range("B5:B10"))
 
iResult = Excel.WorksheetFunction.Sum(Range("B5:B10"))
 
iResult = Application.WorksheetFunction.Sum(Range("B5:B10"))
При необходимости результат вычислений можно поместить в необходимую ячейку, например:

[A1] = Application.Sum([B5:B10])