VBA Code to Summarize Data with Pivot Table in Excel
Updated on: • Published on:
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
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.
