VBA Code to Summarize Data with PivotTable in Excel

This code creates a PivotTable summarizing the selected range of data.

VBA Code:

Sub CreatePivotTable()
    Dim ptSheet As Worksheet
    Dim ptRange As Range
    Dim pt As PivotTable
    
    Set ptSheet = Worksheets.Add
    Set ptRange = Selection
    Set pt = ptSheet.PivotTables.Add(PivotTableDestination:=ptSheet.Cells(3, 1), TableDestination:=ptSheet.Cells(3, 1))
    
    With pt
        .SetSourceData ptRange
        .RowFields.Add ptSheet.Range("A1")
        .ColumnFields.Add ptSheet.Range("B1")
        .AddDataField ptSheet.Range("C1"), "Sum of C", xlSum
    End With
End Sub

Check All VBA Codes

Join Our Telegram Group

Join Our WhatsApp Group

Nazim Khan — Founder & Editor, TechGuruPlus.com
[MBA in Finance]

Nazim Khan has spent over ten years working with Excel, Tally and office documentation in accounts, finance and MIS roles. He has been running TechGuruPlus.com since 2016, where he publishes free editable templates for office work, and the YouTube channel Business Excel. He has trained more than 50,000 people online. Every template on this site is built and checked by him before it is published.

Contact · Excel Course

Leave a Comment Cancel reply