Grande JVal, sempre com soluções pros meus problemas mais estranhos... Vamos ver se consigo me fazer entender: O código está em pleno funcionamento ...

Grande Reinaldo! Você está correto amigo! A questão é que só funciona depois de salvar. Depois que executamos a rotina, e não salvamos ela se comport...

É isso mesmo, mas continua sem funcionar!

AAhhhhhh!!! Continua sem funcionar!! Pra saber se deu certo clica em Crtl+End que ela não pode ir para a célula (AB63225)

Bom dia Reinaldo, o que fez funciona na planilha que enviei, mas na planilha que é pra funcionar mesmo, que é a que envio em anexo, não funciona. O...

Acho que assim não funciona, pois além da quantidade de clientes que compraram, temos ainda o vendedor e o período.

Reinaldo é em VBA, senão tenho que ter outra planilha de controle.

Consegui!!! Na rotina abaixo na linha For i = LBound(vaItems, 1) + 1 To UBound(vaItems, 1) - 1 somei +1 ao LBound(vaItems, 1) ai ele pulou a primeira...

Agora sou MEMBRO VIP!!! Só com minhas dúvidas!

Perfeito Mauro, agora tem mais uma questão, como faço para que não coloque a 1ª linha no sort! Pois é o cabeçalho!

Chook, não cheguei a testar as rotinas que postou, Arthur, pelo que vi na rotina que postou, acredito que você se baseou no link abaixo: Sort Listbox...