Question on creating a macro to insert a pivot table

[jcamacho26]

Hi,

I could use some help. I am trying to record a macro that will insert pivot table and I am stuck. I keep getting an error in the code below. Any assistance would be appreciated.


Application.CutCopyMode = False
Sheets.Add
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C1:R77C13", Version:=xlPivotTableVersion10).CreatePivotTable _
TableDestination:="Sheet2!R3C1", TableName:="PivotTable1", DefaultVersion _
:=xlPivotTableVersion10
Sheets("Sheet2").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotTable1")

 

[jcamacho26]

Yes, that worked, Michael! Thank you so much!