Use a função de soma via VBA: Application.WorksheetFunction.Sum
Declare a variável:
Dim soma As Double
A sintaxe deve ser uma dessas abaixo (não testei):
soma = Application.WorksheetFunction.Sum(Range("G:G").Value)
soma = Application.WorksheetFunction.Sum(Range("G1").EntireColumn)
soma = Application.WorksheetFunction.Sum(Range(Cells(1, "G"), Cells(Rows.Count, "G")).Value)
Postado : 21/11/2014 12:20 pm