This workbook does as I thought you needed, with a formula rather than VBa, based on post #1.
I'm not clear from your sample in post #5 as to what needs sorting.
The formula in B2 is a CSE array and must be confirmed with Ctrl+Shift+Enter, not just Enter, before dragging down.
Formula:
=INDEX(A:A,SUMPRODUCT(--(INDEX(IF(INDEX(INT(ROW($3:$17)/3),,)=INT(ROW(A3)/3),$A$2:$A$16,""),,)>=INDEX(IF(INDEX(INT(ROW($3:$17)/3),,)=INT(ROW(A3)/3),$A$2:$A$16,""),ROWS($2:2),)))+3*INT(ROWS($2:4)/3)-2)
This sorts the groups of 3 from Z-A, change the operator >= to <= to reverse the sorting to A-Z.
Bookmarks