質問者が納得何度かご質問にお答えした記憶はありますが、内容はまったく覚えてません。
質問歴を拝見すると同じようなソートの質問を何度かされているよう見受けられますが、コピペで動かないとまったく応用できないという事でしょうか？
ロジック的にどうかなという気持ちもありますが、サンプルコードを UserForm_Initialize の End Select と End With の間に追加したら、とりあえず画像のようになりました。
'---省略---
End Select
'----サンプル ここから---
i = 0...
質問者が納得失礼しました。B列で判定でしたね＾＾；
こんな感じでどうでしょうか？
Private Sub UserForm_Initialize()
Me.StartUpPosition = 0
Me.Left = 586
Me.Top = 138
'タイトルを設定
Me.Caption = "印刷フォーム"
Label1.Caption = "日付リスト"
Dim Rng As Range, fRng As Range
Dim lst As Vari...
