VBA Code to Summarize Data with Pivot Table in Excel

This code creates a pivot table with the selected range and places it in a new worksheet.

VBA Code:

Sub CreatePivotTable()
    Dim sourceData As Range
    Dim pivotTable As PivotTable
    Dim pivotSheet As Worksheet
    Set sourceData = Selection
    Set pivotSheet = Worksheets.Add
    Set pivotTable = pivotSheet.PivotTableWizard(sourceData, TableDestination:=pivotSheet.Range("A1"))
End Sub
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