Sort two ranges in same column VBA

[mbpress01]

Hello and thanks in advance. I am trying to figure a way to sort two separate ranges in the same column with one row between the first range and second. There is no headings and its a simple sort (alphabetical). I thought about using LastRow variable, determining the last row, current region and sort, then using offset to get to the first range and perform the sort. Any help would be much appreciated. thx

 

[footoo]

Dim area As Range
For Each area In Range([A1], Cells(Rows.Count, "A").End(xlUp)).SpecialCells(xlCellTypeConstants).Areas
    area.Sort Key1:=area(1), Order1:=xlAscending, Header:=xlNo
Next