Excelの並び替えに関する質問です。良い回答は、200ポイント差し上げます。

マクロでソート用の文字列を計算する関数を用意し、空いている列（例えばC列）に格納します。その上で、C列をキーにしてソートします。

マクロは、標準モジュールに追加してください。（VBAエディタで、ファイル名の上で右クリックし、挿入→標準モジュール）

Function SortIndex(ByVal src As String) As String

    Dim i As Long
    
    SortIndex = "_"

    For i = 1 To Len(src)
        SortIndex = SortIndex & Right$("000" & Hex$(AscW(StrConv(Mid$(src, i, 1), vbNarrow))), 4)
    Next i

End Function

Unicodeでのコード順が半角数字→半角英字→ひらがな→漢字→半角カタカナであることを利用してプログラムを簡略化しています。

★入力例（C列に数式を入力）

★実際の表示（数式の計算後。C列でソートします）

同じ文字種内での半角と全角は順不同になります。例えば、半角数字と全角数字は同一視されます。半角数字→全角数字のような並び替えを期待する場合は、仕様が変わります。

また、ソート用の列を作らず全部マクロで行うことも可能ですが、プログラムは少し長くなります。ご要望があれば回答します。