Macro ordenar de acuerdo a la repeticiones

H o l a:

Te anexo la macro actualizada para ordenar, recuerda copiar correctamente la macro y cambiar "IZ" por tu columna.

Sub Repetidos()
'Por.Dante Amor
    col = "IZ"
    '
    Application.ScreenUpdating = False
    c = Columns(col).Column
    Range(Cells(1, c), Cells(1, c + 2)).EntireColumn.ClearContents
    For Each n In Range("A1:IX109").SpecialCells(xlCellTypeConstants, 23)
        Set b = Columns(c).Find(n.Value, lookat:=xlWhole)
        If Not b Is Nothing Then
            Cells(b.Row, c + 1) = Cells(b.Row, c + 1) + 1
            Cells(b.Row, c + 2) = Cells(b.Row, c + 2) & ", " & n.Address(False, False)
        Else
            u = Range(col & Rows.Count).End(xlUp).Row + 1
            Cells(u, c) = n.Value
            Cells(u, c + 1) = 1
            Cells(u, c + 2) = n.Address(False, False)
        End If
    Next
    For i = u To 1 Step -1
        If Cells(i, c + 1) = 1 Then
            Range(Cells(i, c), Cells(i, c + 2)).Delete Shift:=xlUp
        End If
    Next
    '
    With ActiveSheet.Sort
        .SortFields.Clear
        .SortFields.Add Key:=Range(Cells(1, c + 1), Cells(u, c + 1)), _
            SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
        .SetRange Range(Cells(1, c), Cells(u, c + 2))
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
    Application.ScreenUpdating = True
    MsgBox "Fin"
End Sub

‘
:) 

Perfecto pero si el orden cambiara o sea que que me botara el numero desde 0000 a 9999 ya no me imortaria que alterara la cantidad de veces que se repite en la otra celda ni su ubicación gracias eres un gran maestr een esto esto es lo ultimo

H o l a:

No te entendí, ¿ya quedó perfecto o necesitas algo más?

Es que bota el numero pebien con la cantidad de veces repetidas y su ubicación pero si cambiáramos que me botara el listado rdenado or numero o sea 0000 a 9999 sin importar el orden de las veces que se repita ni su ubicación