Somar Valores em VB

[Adão José Silva]

Boa noite.
Alguem poderia me ajudar, tenho uma planilha no excel com um código em VB que me classifica esses produtos, em outra coluna tenho os valores. Estou precisando colocar nesse código uma linha ou algum comando para somar esses valores (Tem que ser em VB).
Agradeço desde já.

[JValq]

Bom dia,

Segue dois exemplos de código que somam o intervalo A1:A10 com o resultado na célula A11:

Código: Selecionar todos

Sub Somar()
    Dim Intervalo As Range
    
    Set Intervalo = [A1:A10]
    [A11].FormulaLocal = "=SOMA(" & Intervalo.Address & ")"
End Sub

Sub Somar2()
    Dim Intervalo As Range
    
    Set Intervalo = [A1:A10]
    [A11].Value = WorksheetFunction.Sum(Intervalo)
End Sub

Abraço

[Adão José Silva]

Caro JValq, obrigado pelo empenho, estou anexando o arquivo para vc verificar melhor talves possa me ajudar ainda mais.
Desde já agradeço.

IndexarProdutos.zip

Arquivo_Modelo

(25.34 KiB) Baixado 400 vezes

[joseA]

Acho que é isso: http://www.babooforum.com.br/forum/inde ... ge__st__10