Select 1st 2d range, sort, find 2nd, sort, etc

much shorter option of the code, see attachment, run macro "sort_me"

Sub sort_me()
Dim a, i As Long
Application.ScreenUpdating = False: On Error GoTo Handler
a = Split([e:e].SpecialCells(xlCellTypeConstants, 1).Address, ",")
For i = 0 To UBound(a)
Range(a(i)).Resize(Range(a(i)).Rows.Count, 8).Sort Key1:=Range(Split(a(i), ":")(0)).Offset(0, 1), Order1:=xlAscending
Next: Application.ScreenUpdating = True: On Error GoTo 0
Exit Sub
Handler:
On Error GoTo 0: Exit Sub
End Sub