Unable to run macros after recording macros

[063azi]

Sub Macro7()
'
' Macro7 Macro
'
ActiveCell.Offset(-2, -6).Range("A1").Select
ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"PAF Folder!R1C1:R1048576C10", Version:=6).CreatePivotTable TableDestination _
:="City-Wise Payout!R3C1", TableName:="PivotTable11", DefaultVersion:=6
Sheets("City-Wise Payout").Select
Cells(3, 1).Select
With ActiveSheet.PivotTables("PivotTable11")
.ColumnGrand = True
.HasAutoFormat = True
.DisplayErrorString = False
.DisplayNullString = True
.EnableDrilldown = True
.ErrorString = ""
.MergeLabels = False
.NullString = ""
.PageFieldOrder = 2
.PageFieldWrapCount = 0
.PreserveFormatting = True
.RowGrand = True
.SaveData = True
.PrintTitles = False
.RepeatItemsOnEachPrintedPage = True
.TotalsAnnotation = False
.CompactRowIndent = 1
.InGridDropZones = False
.DisplayFieldCaptions = True
.DisplayMemberPropertyTooltips = False
.DisplayContextTooltips = True
.ShowDrillIndicators = True
.PrintDrillIndicators = False
.AllowMultipleFilters = False
.SortUsingCustomLists = True
.FieldListSortAscending = False
.ShowValuesRow = False
.CalculatedMembersInFilters = False
.RowAxisLayout xlCompactRow
End With
With ActiveSheet.PivotTables("PivotTable11").PivotCache
.RefreshOnFileOpen = False
.MissingItemsLimit = xlMissingItemsDefault
End With
ActiveSheet.PivotTables("PivotTable11").RepeatAllLabels xlRepeatLabels
With ActiveSheet.PivotTables("PivotTable11").PivotFields("City")
.Orientation = xlRowField
.Position = 1
End With
ActiveSheet.PivotTables("PivotTable11").AddDataField ActiveSheet.PivotTables( _
"PivotTable11").PivotFields("Amount"), "Sum of Amount", xlSum
With ActiveSheet.PivotTables("PivotTable11").PivotFields("Payment Status")
.Orientation = xlPageField
.Position = 1
End With
With ActiveSheet.PivotTables("PivotTable11").PivotFields("City")
.PivotItems("(blank)").Visible = False
End With
ActiveSheet.PivotTables("PivotTable11").PivotFields("Payment Status"). _
CurrentPage = "(All)"
With ActiveSheet.PivotTables("PivotTable11").PivotFields("Payment Status")
.PivotItems("Failed").Visible = False
.PivotItems("(blank)").Visible = False
End With
ActiveSheet.PivotTables("PivotTable11").PivotFields("Payment Status"). _
EnableMultiplePageItems = True
With ActiveSheet.PivotTables("PivotTable11").PivotFields( _
"Paid via Careem account")
.Orientation = xlColumnField
.Position = 1
End With
End Sub

can any body help me I'm unable to run macros after recording creating the Pivot table facing this yellow highlighted msg!

 

[063azi]

Can i share my excel sheet with you is possible I'm not find any link where i can upload it here

 

[DanteAmor]

At the beginning you have PivotTable1 and then you refer to PivotTable2, I suppose that PivotTable2 does not exist.

 

[063azi]

At the beginning you have PivotTable1 and then you refer to PivotTable2, I suppose that PivotTable2 does not exist.

View attachment 16669

I have recorded macros while creating pivot table 1 and then i copy same pivot and paste on different column and made some changes here and stop recording what does it mean i have 1 pivot 2 two ?

 

[Fluff]

Cross posted Facing problem in creating 2 pivot table in macros!

While we do allow Cross-Posting on this site, we do ask that you please mention you are doing so and provide links in each of the threads pointing to the other thread (see rule 13 here along with the explanation: Forum Rules). This way, other members can see what has already been done in regards to a question, and do not waste time working on a question that may already be answered.