質問者が納得何度かご質問にお答えした記憶はありますが、内容はまったく覚えてません。
質問歴を拝見すると同じようなソートの質問を何度かされているよう見受けられますが、コピペで動かないとまったく応用できないという事でしょうか？
ロジック的にどうかなという気持ちもありますが、サンプルコードを UserForm_Initialize の End Select と End With の間に追加したら、とりあえず画像のようになりました。
'---省略---
End Select
'----サンプル ここから---
i = 0...
4367日前view71
