Sorting Data within Subtotalled Groups

[beanie3105]

Hello

I have about 34k lines worth of data that is subtotalled, I need to sort the data within these subgroups, I can't sort the whole data as it puts the subtotals to the end, is there a way of doing this?

 

[Peter_SSs]

I suggest that you update your Account details (or click your user name at the top right of the forum) so helpers always know what Excel version(s) & platform(s) you are using as the best solution often varies by version. (Don’t forget to scroll down & ‘Save’)

You have given us very little to go on in terms of your data layout, what the subtotals are based on, what column(s) needs to be sorted etc but here is an small example of one way to approach the problem

Here is my sample data with the 'Value' column for each 'Age' group subtotalled.

beanie3105.xlsm
	A	B	C
1	Name	Age	Value
2	Name 1	10	5
3	Name 11	10	5
4	Name 3	10	2
5	Name 7	10	5
6		10 Total	17
7	Name 2	11	6
8	Name 4	11	5
9		11 Total	11
10	Name 10	12	9
11	Name 5	12	6
12	Name 9	12	7
13		12 Total	22
14	Name 8	13	6
15		13 Total	6
16	Name 6	14	4
17		14 Total	4
18		Grand Total	60
Sheet1

Cell Formulas
Range	Formula
C6	C6	=SUBTOTAL(9,C2:C5)
C9	C9	=SUBTOTAL(9,C7:C8)
C13	C13	=SUBTOTAL(9,C10:C12)
C15,C17	C15	=SUBTOTAL(9,C14:C14)
C18	C18	=SUBTOTAL(9,C2:C16)

Now I want each of those subtotalled groups sorted by 'Value' highest to lowest.

Sub SortInSubtotals()
  Dim rA As Range
  
  Application.ScreenUpdating = False
  For Each rA In Range("A2", Range("A" & Rows.Count).End(xlUp)).SpecialCells(xlConstants).Areas
    rA.EntireRow.Sort Key1:=rA.Columns(3), Order1:=xlDescending, Header:=xlNo
  Next rA
  Application.ScreenUpdating = True
End Sub

Result:

beanie3105.xlsm
	A	B	C
1	Name	Age	Value
2	Name 1	10	5
3	Name 11	10	5
4	Name 7	10	5
5	Name 3	10	2
6		10 Total	17
7	Name 2	11	6
8	Name 4	11	5
9		11 Total	11
10	Name 10	12	9
11	Name 9	12	7
12	Name 5	12	6
13		12 Total	22
14	Name 8	13	6
15		13 Total	6
16	Name 6	14	4
17		14 Total	4
18		Grand Total	60
Sheet1

Cell Formulas
Range	Formula
C6	C6	=SUBTOTAL(9,C2:C5)
C9	C9	=SUBTOTAL(9,C7:C8)
C13	C13	=SUBTOTAL(9,C10:C12)
C15,C17	C15	=SUBTOTAL(9,C14:C14)
C18	C18	=SUBTOTAL(9,C2:C16)