Desculpa gente, é coluna F

Como é:

Como deve ficar:

Tentando contribuir,
Veja no anexo, codigo para alterar o ponto para virgula (texttocolum)na propria coluna E, e em seguida faz a "ordenação" pela coluna "E"

Sub Alt_Class()
Dim lrow As Long
lrow = Range("A" & Rows.Count).End(xlUp).Row

    Columns("E:E").Select
    Selection.TextToColumns Destination:=Range("E1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), DecimalSeparator:=".", ThousandsSeparator:=",", _
        TrailingMinusNumbers:=True
    Selection.NumberFormat = _
        "_([$$-1004]* #,##0.00_);_([$$-1004]* (#,##0.00);_([$$-1004]* ""-""??_);_(@_)"
    
    ActiveWorkbook.Worksheets("Sheet1").Range("A1:E" & lrow).Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("E2:E" & lrow) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:E" & lrow)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
Range("E1").Select
End Sub

Reinaldo. Muito obrigado e parabéns. Ficou excelente.
Resolvido.