Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    Selection.Replace What:=" ", Replacement:="", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
    
    For Each rng In Selection.Areas
    rng.FormulaLocal = rng.FormulaLocal
    Next rng
   
    Selection.NumberFormat = "#,##0.00"
    Range("A25:AG25", Range("A25:AG25").End(xlDown)).Select
    ActiveWorkbook.Worksheets(1).Sort.SortFields. _
        Clear
    ActiveWorkbook.Worksheets(1).Sort.SortFields. _
        Add2 Key:=Range("AG25", Range("AG25").End(xlDown)), SortOn:=xlSortOnValues, Order:=xlAscending _
        , DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets(1).Sort
        .SetRange Range("A25:AG25", Range("A25:AG25").End(xlDown))
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

Selection.Replace What:=Chr(160), Replacement:="", LookAt:=xlPart, _
    SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
    ReplaceFormat:=False
    
    For Each rng In Selection.Areas
    rng.FormulaLocal = rng.FormulaLocal
    Next rng
    Selection.FormulaLocal = Selection.FormulaLocal
    Selection.NumberFormat = "#,##0.00"
   
    Range("A25:AG25", Range("A25:AG25").End(xlDown)).Select
    
    Selection.Sort key1:=Range("AG25", Range("AG25").End(xlDown)), _
    order1:=xlAscending, Header:=xlNo