Tabellenblätter sortieren SPEZIAL

wie kann ich u.a. Code anpassen, so dass die Tabellenblätter nur nach dem letzten Wort des jeweiligen Blattnamens sortiert werden?

Besipiel:
Hertha BSC Berlin steht vor Arminia Bielefeld, da nur die Wörter Berlin und Bielefeld betrachtet werden.

Code:
Public Sub SortWorksheets()
Dim iCount As Integer, iFirst As Integer, iSecond As Integer
iCount = ActiveWorkbook.Worksheets.Count
For iFirst = 1 To iCount
For iSecond = iFirst To iCount
If Worksheets(iSecond).Name < Worksheets(iFirst).Name Then
Worksheets(iSecond).Move before:=Worksheets(iFirst)
End If
Next iSecond
Next iFirst
End Sub