Claudinei, favor não escrever em letras maiusculas.
Esta eu responderei, mas nas proximas não.

Não consegui me achar em seu modelo aonde quer aplicar sua solicitação, e tambem não compreendi aquestão de inserir linha com subtotal após grupo de cidades, então segue uma rotina que irá classificar a partir da linha 8 até a última que contiver dados, e insere um valor na última linha.

Sub ClassificaLinhaInicialFinal()
    Dim sRange As Range
    Dim sRowInicio As Long
    Dim FinalRow As Long
    
    'Verifica a última linha preenchida
    FinalRow = Range("A65536").End(xlUp).Row
    
    'Linha Inicial
    sRowInicio = 8
    
    'Define o Range a ser classificado
    Set sRange = Range("A" & sRowInicio & ":A" & FinalRow)
        
        'Classifica
        sRange.Sort Key1:=sRange, Order1:=xlAscending, Header:=xlGuess, _
            OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
            DataOption1:=xlSortNormal

    'Insere um Valor após a última linha
    Range("A" & FinalRow + 1).Cells(1, 1).Value = "SUB TOTAL"

End Sub

[]s

Desculpe pelas maiusculas;
Tentarei esclarecer:
O exemplo está com dados de A8:O14 (inicial sempre A8) , quando mandar classificar ; classificar usando a coluna G (localidades ou cidades)
Após cada grupo de cidades inserir apartir da coluna C os dizeres :TOTAL PARA A LOCALIDADE "A" Valor1 R$ Valor2
Apos classificado a planilha deve ficar como de A16:O29.

Acho que melhorei um pouco a explicação

Mauro desde já muitissimo obrigado

Alguem ai com uma solução por favor

Boa noite!!
A resposta do Mauro, não te atendeu?

Não seria possível uma adaptação?

Att

Tentei adaptar mas não consegui Alexandre ; não é que estou querendo o peixe não , é que não aprendi a pescar direito .
Se puder dá uma olhada pra mim estou dependendo só desta parte para comecar a usar a plan.
Muitissimo Obrigado

Alguem com alguma solução por favor

É perfeitamente possível fazer sem VBA. Só que tô saindo agora pra viajar e volto na terça. Se não conseguir até lá me avise que monto pra vc.

Abs,

Até agora não consegui nada, aguardo sua ajuda.

Alguem encarecidamente poderia me ajudar?

Sem VBA. Observe a lógica na área cinza.

Me avise.

Abs,

Mandrix não consegui adaptar na planilha

Claudinei, estou trabalhando em sua questão para viabilizar o que pretende em VBA, mas os seus modelos, principalmente este último está Protegida, alem de terem varias abas.

Faça o seguinte, não precisa enviar o aplicativo inteiro, monte um exemplo somente com as abas que quer a implementação, de como é e de como quer o resultado.

[]s

Caro Mauro
aqui no trabalho tá tendo umas frescuras pra envio de arquivos , tinham até cortado o acesso ao planilhando, seria possivel vc e qualquer outro com a sua boa vontade , me adicionar no msn para que a noite em casa possa explicar melhor o que preciso.
msn - [email protected]
email - [email protected]

Claudinei, fiz um exemplo basico utilizando somente uma aba para que possa entender melhor, e fica mais facil lidarmos com as adaptações, uma vez que um arquivo do porte do seu tem muitas rotinas e abas, é mais fácil lidarmos para não confundirmos com rotinas desnecessárias.

Utilizei a dica do site abaixo, referente a classificar os dados armazenados em um Colletion, ou seja em uma cadeia de dados o Colletion armazena somente os dados sem repetição e depois com a rotina sugerida utilizei para classificar e depois lançar utilizando outras instruções. Assim que possivel coloco os comentários nas rotinas, deu um pouco de trabalho para adaptar da forma que quer, acho que ainda falta algo, mas se estivermos no caminho certo, é só irmos ajustando o restante.

Chega de lenga lenga, faça os testes e veja se é mais ou menos isto que pretende.

Fonte :
Author: Christian d'Heureuse
How to sort a collection in Visual Basic using HeapSort
http://www.source-code.biz/snippets/vbasic/6.htm

[]s