Agrupar y totalizar datos en excel

Sigue las Instrucciones para un botón y ejecutar la macro
1. Abre tu libro de Excel
2. Para abrir Vba-macros y poder pegar la macro, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la macro
5. Ahora para crear un botón, puedes hacer lo siguiente:
6. Inserta una imagen en tu libro, elige del menú Insertar / Imagen / Autoformas
7. Elige una imagen y con el Mouse, dentro de tu hoja, presiona click y arrastra el Mouse para hacer grande la imagen.
8. Una vez que insertaste la imagen en tu hoja, dale click derecho dentro de la imagen y selecciona Asignar macro / Selecciona: agrupar
9. Aceptar.
10. Para ejecutarla dale click a la imagen.

Tu hoja de datos se debe llamar hoja1 y en la hoja2 se van a agrupar.

Sub agrupar()
'por.dam
    Application.ScreenUpdating = False
    Sheets("Hoja1").Select
    mes = Range("A1")
    importe = Range("B1")
    uf = Range("A" & Rows.Count).End(xlUp).Row
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, _
        SourceData:="Hoja1!R1C1:R" & uf & "C2").CreatePivotTable _
        TableDestination:="", TableName:="Tabla dinámica2", _
        DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    h2 = ActiveSheet.Name
    With ActiveSheet.PivotTables("Tabla dinámica2").PivotFields(mes)
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Tabla dinámica2").AddDataField ActiveSheet.PivotTables _
        ("Tabla dinámica2").PivotFields(importe), "Suma de importe", xlSum
    Sheets("Hoja2").Cells.Clear
    Range("A4:B4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Sheets("Hoja2").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Range("B1") = importe
    Application.DisplayAlerts = False
    Sheets(h2).Delete
    Application.DisplayAlerts = True
    Application.ScreenUpdating = False
End Sub

Saludos.Dam
Si es lo que necesitas.