دمج كود الفرز مع كود ازاله المسافات

[ابن بنها]

السلام عليكم ورحمة الله

ادعو الله ان تكونوا بخير يارب

وبعد

هذا كود لازاله المسافات بين الكلمات وكود اخر للفرز ارجو دمجهم بحيث عند الضغط على زر الفرز يتم اولا ازاله المسافات وبعدها الفرز

لتكون عمليه الفرز دقيقه

جزاكم الله خيرا

Sub kh_TrimSelection()
On Error Resume Next
Dim cel As Range
For Each cel In Selection.Cells
    If Not IsNumeric(cel) Then
        cel.Value = WorksheetFunction.Trim(cel)
    End If
Next
On Error GoTo 0
End Sub

وهذا كود الفرز

    Sub SortData1()
    Dim LR As Long
    LR = Range("E" & Rows.Count).End(xlUp).Row
    'مدى الفرز .. ثم معيار الفرز الاول
    'ثم معيار الفرز التاني
    Range("B7:S" & LR).Sort Key1:=Range("F9:F" & LR), Order1:=2, Key2:=Range("E9:E" & LR), Order2:=1, Header:=xlNo
    Range("E7").Select
End Sub