Pessoal,

Alguém poderia me ajudar?

'COLOCAR SOMATÓRIA

'(esse Range só funciona com mais de uma célula pra somar)
'(pode ocorrer, durante as consultas, de aparecer apenas uma)
'(como faço pra somar, corrigindo essa situação?)

Range(Selection, Selection.End(xlDown)).Select
CellAddr = Selection.Address
ActiveCell.Offset(-1, 0).Select
ActiveCell.FORMULA = "=SUM(" & CellAddr & ")"

Situação aplicada na planilha:
https://1drv.ms/x/s!Am6OdcnCxQkhgvVeHxuvjCAQwB2xmg

Arquivo anexo.
Desde já, meu obrigado.