Sort each group in descending order

[snb]

Sufficient code

Sub M_snb() 
  For Each it in activesheet.rows(1).specialcells(2).areas 
    it.currentregion.sort it.cells(1) 
  Next 
End Sub