录制宏出现的疑问，和数据透视表有关。

悟VS思

Sheets("基础通信").Select
    Cells.Select
    Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "基础通信!R1C1:R65536C53", Version:=xlPivotTableVersion10).CreatePivotTable _
        TableDestination:="Sheet1!R3C1", TableName:="数据透视表1", DefaultVersion:= _
        xlPivotTableVersion10
    Sheets("Sheet1").Select
    Cells(3, 1).Select
    With ActiveSheet.PivotTables("数据透视表1").PivotFields("业务地市")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("数据透视表1").AddDataField ActiveSheet.PivotTables("数据透视表1" _
        ).PivotFields("业务地市"), "计数项:受理号码", xlCount
我想要录制的透视以业务地市为透视表的行标签，受理号码为计数项的透视表，但是运行都最后总是出现如图的这种情况，我想要请问下，这是在哪里出现了差错。