@souzadenilson

Talvez este vídeo possa te ajudar:

https://www.youtube.com/watch?v=R5KyMeMElQo&ab_channel=CANALSGP

@souzadenilson troque a linha por essa :

.List(.ListCount - 1, 3) = Format(Cell.Offset(0, 3).Value, "0.00%") 'Coluna 3

Não entendi porque tem a linha para carregar uma 5ª coluna se o listbox só tem 4 e na planilha tambem, talvez não saiba as colunas no Listbox começam do Zero, então a coluna 1 na planilha é representada por essa instrução no Listbox ".AddItem Cell.Value".

Não entendi quanto a questão de classificação, seria na planilha ou no Listbox, pois não achei nenhuma instrução para Lançamentos.

[]s

Boa noite, realizei a alteração que você propôs e funcionou perfeitamente.

Em relação a classificação automática, a ideia é que ao salvar os dados que se encontram na listbox, ele coloca os dados em ordem decrescente no excel.

Algum tópico ou video que informa como fazer esta macro.

@souzadenilson existem algumas possibilidades de se fazer o que precisa, mas precisamos de informações mais precisas, detalhadas.

Voce tem dois Listbox, duas rotinas, uma que carrega o listbox e outra na caixa de texto, ou seja :

Salvar os dados que se encontram na listbox : Com certeza não deve do que está carregando pois os dados já estão na planilha, então, salvar de onde pra onde ?