[ChrisGT7]

Καλημέρα Δημήτρη,

Μια ακόμα πρόταση:

Option Explicit

Sub SortRange()
    Dim I As Long
    I = Range("A" & Rows.Count).End(xlUp).Row
    
    Range("B:B").ClearContents
    With Range("B1:B" & I)
        .Formula = "=IFERROR(IF(ISNUMBER(A1),IF(ISERROR(FIND("","",A1)),A1,""""),""""),"""")"
        .Value = .Value
        .Sort Key1:=[B1], Order1:=xlAscending, Header:=xlNo
    End With
End Sub