Pela imagem apenas, ficarei no achometro. Acho eu que o simbolo "°" está concatenado ao numero do ranking; resultando assim em um texto.
Como texto a ordem está correta.

nao entendi direito. podeira explicar melhor?

Pela imagem apenas, ficarei no achometro. Acho eu que o simbolo "°" está concatenado ao numero do ranking; resultando assim em um texto.
Como texto a ordem está correta.

Reinaldo,

Eu utilizo esse código para carregar a listview:

With Me.ListView4
         .ColumnHeaders.Clear
         .ListItems.Clear
         .View = lvwReport
         .FullRowSelect = True

    Sheets("GRAFICO_CLIENTE").Select

    Application.OnKey "{Escape}", ""
           With UserForm80.ListView4
                .Gridlines = True
                .View = lvwReport
                .FullRowSelect = True
                .ColumnHeaders.Add Text:="ID"
                .ColumnHeaders.Add Text:="Centro de Custo"
                .ColumnHeaders.Add Text:="Conta Razão"
                .ColumnHeaders.Add Text:="Cliente"
                .ColumnHeaders.Add Text:="Total Ano"
                .ColumnHeaders.Add Text:="Ranking"
               
             
          End With
    Dim lastrow
    Dim X

    Dim li

           
            'Adiciona itens
    For X = 42 To 199 'aqui ele preenchera até a linha 30, mas eu quero que preencha até a ultima linha que possua dados.
    If Plan30.Cells(X, "y").Value <> "" Then
              Set li = ListView4.ListItems.Add(Text:=Plan30.Cells(X, "y").Value)
              li.ListSubItems.Add Text:=Format(Plan30.Cells(X, "z").Value, "0.00")
              li.ListSubItems.Add Text:=Format(Plan30.Cells(X, "aa").Value, "0.00")
              li.ListSubItems.Add Text:=Format(Plan30.Cells(X, "ab").Value, "0.00")
              li.ListSubItems.Add Text:=Format(Plan30.Cells(X, "ac").Value, "0.00")
              li.ListSubItems.Add Text:=Format(Plan30.Cells(X, "aD").Value, "0°")
    End If
    Next

    Call TamanhoColAutomatico4
    End With

Ja tentou odernar uma range que contenha numeros e texto; nessa situação os numeros são considerados textos tambem; então ao ordenar primeiro vem todos os que comecem com zero, a seguir todos os que comecem com 1 ...
Então se ao ordenar pelo rank, tem a sequencia 1,10,11..,2,3,...; entende-se que o campo/ordenamento está considerando texto não numeros.
De uma lida em http://www.planilhando.com.br/forum/viewtopic.php?t=14078&p=73498 ou http://www.planilhando.com.br/forum/viewtopic.php?t=8988&p=47334, entre outros (procure no fórum por Ordenar Listview)

Reinaldo,

Absorvi pouco dos links sugeridos por você. Em um deles, vi o código postado pelo Mauro Coutinho, para ordenar os dados ao clicar em uma coluna.

Eu o utilizo, veja:

    'Ordena pela Coluna Clicada
    Private Sub ListView1_ColumnClick(ByVal ColumnHeader As MSComctlLib.ColumnHeader)
         With ListView1
            If .SortKey = ColumnHeader.Index - 1 Then
               If .SortOrder = lvwAscending Then
                  .SortOrder = lvwDescending
               Else
                  .SortOrder = lvwAscending
               End If
            Else
               .SortKey = ColumnHeader.Index - 1
            End If
             .Sorted = True
        End With
     
    End Sub

Teria um código que ordenaria automaticamente uma determina coluna na listview ?