Разделы сортировки Excel VBA

Question

Я пытаюсь отсортировать ниже в Excel через каждый раздел, а затем оценить. После этого я хотел бы автоматически подсчитать каждый раздел и оценить. Любая помощь очень ценится. Спасибо.

ОРИГИНАЛЬНЫЕ СЫРЬЕ ДАННЫХ:

Description       Amt            Section    Rate
 B 3 May        $ (2,317,143.00)    B        3
 A 3 ½  May     $   (429,783.00)    A        3 1/2
 B stuff1 3     $      1,492.00     B        3
 A stuff 3 ½    $    169,569.00     A        3 1/2
 C 3 ½ May      $(31,037,179.00)    C        3 1/2
 C stuff1 3 ½   $    217,288.00     C        3 1/2
 A 3 ½ Jun      $  2,000,000.00     A        3 1/2
 B stuff2 3     $    528,207.00     B        3    
 B stuff3 3     $  1,867,888.00     B        3    

желаемый выход:

Description       Amt
 A 3 ½  May     $   (429,783.00)
 A 3 ½ Jun      $  2,000,000.00 
 A stuff 3 ½    $    169,569.00 
                $  1,739,786.00 
 B 3 May        $ (2,317,143.00)
 B stuff1 3     $      1,492.00 
 B stuff2 3     $    528,207.00 
 B stuff3 3     $  1,867,888.00 
                $     80,444.00 
 C 3 ½ May      $(31,037,179.00)
 C stuff1 3 ½   $    217,288.00 
                $(30,819,891.00)

Answer 1

Извините, поскольку я должен был скопировать основной код VBA, который у меня есть в настоящее время. Есть ли хороший метод для автоматического суммирования различных разделов без использования сводной таблицы?

ActiveWorkbook.Worksheets("Formatted").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Formatted").Sort.SortFields.Add Key:=Range( _
        "D2:D56"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    ActiveWorkbook.Worksheets("Formatted").Sort.SortFields.Add Key:=Range( _
        "E2:E56"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With ActiveWorkbook.Worksheets("Formatted").Sort
        .SetRange Range("A1:F56")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With