参考元：【VBA】シートを並び替える【バブルソートを使ってMoveで移動する】
https://daitaideit.com/vba-sheet-sort/
手順としては、次のようになります。
基準のシートを「1～4番目」でループ
比較シートを「基準＋1番目～最終シート」でループ
右側のシートが小さい場合は、基準シートの左に移動
Sub TEST1()
'基準をループ
For i = 1 To 4
'比較先をループ
For j = i + 1 To 5
'右側が小さい場合は、基準の左に移動
If Sheets(i).Name > Sheets(j).Name Then
Sheets(j).Move before:=Sheets(i) '基準の左に移動
End If
Next
Next
End Sub
