中ほどにある数字でソートしたい

１）文字列と入っている場合、
１
２
３
：
と並べ替えたいときには、
０１
０２
０３
と番号をつけ直してください。

２）
また、A列に1列挿入し、番号のみの列を用意し、
１～オートフィルで番号を付ければ、正常な並べ替えが出来ます。

>中ほどにある数字でソートしたい
◆「第1シーズン」、「第13話」のそれぞれの数字であれば、
◆作業列を設けて
B1=SUBSTITUTE(LEFT(A1,FIND("シー",A1)-1),"第",0)*1000+RIGHT(SUBSTITUTE(LEFT(A1,FIND("話",A1)-1),"第","00"),3)
★下にコピー

◆全体を範囲指定して、作業列を「最優先されるキー」にして並べ替えをしてください

Macroを組んでみました。
シートの詳細な文字が見えませんので・・・「第1シリーズ 話1・・・」と読んで作成しています。話の後の「数字は99まで」と判断してマクロを組んでいます。
作業スペースをＬ列(１２列）にしています。若し貴方のシートが９列で完成していれば・・・
コードの「 Ｌ 」を 「 Ｊ 」 に変更してください。要は最終列の隣りの列のアルファベットに変更してください《６箇所》。
そのように変更していただければ、昇順まで全てボタン１回押しで、完了します。
また、「話」が他の文字であれば、コードの中の「 話 」をそちらの文字一文字と変えてください《２箇所》。
コードは以下の通りです。
''+++++++++++++++++++++++++++++++++++++++++
Sub 昇順()
With Range("A1", Range("A" & Range("A" & Rows.Count) _
.End(xlUp).Row)).Offset(, 11)
.Formula = "=if(A1<>"""",mid(A1,7,2),"""")"
.Value = .Value
.Select
Selection.Find(What:="話").Activate
.Replace What:="話", Replacement:=""
End With
Range("L1", Range("A" & Range("A" & Rows.Count) _
.End(xlUp).Row)).Select
Range("L1").Activate
Range("L1").Sort Key1:=Range("L1"), Order1:=xlAscending
Range("L1", Range("L" & Range("L" & Rows.Count) _
.End(xlUp).Row)).Clear
End Sub
''++++++++++++++
写真の左半分はシートの状態です、右半分はマクロのモジュールの状態です。
いずれも、動作の途中の状態を写真にしています。