Vc deve "limpar" as variaveis sSort e sTemp1, ao "limpar_soma", pois a ultima soma (no seu exemplo Santa Rita .., mantem o vlor 802,55 na memoria do stemp1
Pode ser por exemplo em:

Sub Classifica_ASD()
If Range("A3") = 2 then
sSort="": sTemp1=0
goto Classificacidade......

muitissimo obrigado Reinaldo,
Valeu muito mesmo

Abusando da boa vontade
Clica em soma_Aliment e veja que 0,146US +0,130US somados de E19:E20; o total em G21é US 51,01 (ERRADO,correto é 0,276US)
G23 = US 52,77 que é 51,01 de G21+ 1,766 de G22 (ERRADO , deveria ser 1,76).
G26 = US 53,38 que é 52,77 de G23 + 0,146 de E24 +0,459 de E25 (ERRADO , deveria ser E24+E25 = 0,605)
e não consigo chegar ao código correto.

Boa noite!!

Para manter o fórum organizado, por favor, lembre se de marcar sua postagem como resolvida!!

Att

Ufa consegui.