我已经开发了一个宏来生成数据透视表。它也是我的笔记本电脑，PC和妻子的笔记本电脑上预期的数据透视表。它突然停止在我的笔记本电脑上工作。宏运行-删除现有工作表-但不会生成数据透视表。

其他宏在笔记本电脑上工作正常。相同的宏在我的办公室PC上运行良好。

Sub b2c()
    On Error Resume Next
    Application.DisplayAlerts = False
    Worksheets("B2C_sum").Delete: Sheets.Add after:=activeSheet
    activeSheet.Name = "B2C_sum"
    Application.DisplayAlerts = True
    Set PSheet = Worksheets("B2C_sum")
'Define Data Range
    Set PRange = Worksheets("GST return data").Range("a:t")

'Define Pivot Cache
    Set PCache = activeWorkbook.PivotCaches.Create _
    (SourceType:=xlDatabase,SourceData:=PRange). _
    CreatePivotTable(TableDestination:=PSheet.Cells(1,1),_
    TableName:="B2CTable")

'Insert Blank Pivot Table
Set PTable = PCache.CreatePivotTable _
(TableDestination:=PSheet.Cells(1,TableName:="B2Ctable")

    Cells(1,1).Select
    activeWorkbook.ShowPivotTableFieldList = True
    With activeSheet.PivotTables("B2Ctable").PivotFields("Type")
        .Orientation = xlRowField
        .Position = 1
    End With
    With activeSheet.PivotTables("B2Ctable").PivotFields("Place of Supply")
        .Orientation = xlRowField
        .Position = 2
    End With
    With activeSheet.PivotTables("B2Ctable").PivotFields("Rate")
        .Orientation = xlRowField
        .Position = 3
    End With

    activeSheet.PivotTables("B2Ctable").AddDataField activeSheet.PivotTables( _
        "B2Ctable").PivotFields("Taxable Value"),"Total Taxable Value",xlSum

    activeSheet.PivotTables("B2Ctable").AddDataField activeSheet.PivotTables( _
        "B2Ctable").PivotFields("Cess"),"Cess Amount",xlSum

    activeSheet.PivotTables("B2CTable").AddDataField activeSheet.PivotTables( _
        "B2CTable").PivotFields("E-Commerce GSTIN"),"E-Commerce GSTIN",xlSum

    activeSheet.PivotTables("B2Ctable").RowAxisLayout xlTabularRow
    activeSheet.PivotTables("B2Ctable").RepeatAllLabels xlRepeatLabels

    activeSheet.PivotTables("B2Ctable").PivotFields("Type").Subtotals = Array( _
        False,False,False)

    activeSheet.PivotTables("B2Ctable").PivotFields("Place of Supply").Subtotals = Array( _
        False,False)

    activeSheet.PivotTables("B2Ctable").PivotFields("Rate").Subtotals = Array( _
        False,False)
    activeWorkbook.protect Password:="Giridhar",Structure:=True,Windows:=False
End Sub

它应在运行宏时生成数据透视表