T4501_Sort Multiple Tables Using SpecialCells Areas

https://excel-egy.com/forum/t4501
---------------------------------

Sub Sort_Multiple_Tables_Using_SpecialCells_Areas()
    Dim myAreas As Areas, i As Long

    Set myAreas = Columns("A").SpecialCells(2).Areas

    For i = 1 To myAreas.Count
        With myAreas(i).Cells(2).Resize(myAreas(i).Count - 1, 11)
            .Sort Key1:=.Cells(6), Order1:=xlAscending, Header:=xlYes
        End With
    Next i
End Sub