VBA Code to Summarize Data with PivotTable in Excel

by

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 techguruplus telegram group Join Our WhatsApp Group techguruplus whatsapp group
Nazim Khan - Author Image

Nazim Khan (Author) 📞 +91 9536250020
[MBA in Finance]

Nazim Khan is an expert in Microsoft Excel. He teaches people how to use it better. He has been doing this for more than ten years. He is running this website (TechGuruPlus.com) and a YouTube channel called "Business Excel" since 2016. He shares useful tips from his own experiences to help others improve their Excel skills and careers.

Leave a Comment