Saberexcel - site de quem precisa aprender Macros Microsoft Excel VBA
Essa macro do Aplicativo Microsoft Excel VBA(Visual Basic Application), soma o contéudo da coluna(A), na célula[C5].
Uma aluna que estudo conosco atualmente, praticando com nossos produtos didáticos, contou-nos que foi inquerida em fazer um teste de emprego, no qual envolveu questões do Excel, foi solicitado que determinasse números pares e impares via vba, e também que inserisse uma soma de determinada coluna em uma célula em outra folha de planilha, ela não conseguiu, e nao conseguir encontrar em lugar algum.
Então estou disponibilizando uma das maneiras de inserir esse tipo de soma diretamente do VBA, com o auxílio de uma WorksheetFunction, que retorna valores sem o auxlio de fórmulas.
- Como disse para Lúcia, muito importante o aluno praticar, repetir o exercício até conseguir montar um exemplo sem ter que copiar e colar, isto é, deverá praticar até conseguir, não há outro caminho a não ser a prática.
Observe como as WorksheetFunctions são extremamente importante no aprendizado MS Excel VBA, neste caso, retorna uma soma sem o auxílio de fórmulas, diretamente em determinada célula em qualquer folha de planilha.
Não deixe de ver as nossas 340 Planilhas exemplos VBA de Worksheetfunction
VBA - wkf worksheetfunction funções de planilhas retornam valores vba
Public Const sbx = "Saberexcel - site das macros" 'acrescentei essas duas constantes com intuíto didático.
Public Const sby = vbInformation
Sub Soma_coluna_a()
[C5].Value = Application.WorksheetFunction.Sum(Range("A1:" & Range("A65535").End(xlUp).Address)) 'retornando para célula
MsgBox "Celula(C5) - Total..: " & Application.WorksheetFunction.Sum(Range("A1:" & Range("A65536").End(xlUp).Address)), sby, sbx
End Sub
Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel
Acesso Livre - Registrados (REGISTRE-SE!) 
Baixe o exemplo de planilha contendo o macro acima
Excel vba soma wkf retorna soma (24.78 KB)
