Почему я получаю ошибку времени выполнения 5 Неверный вызов процедуры или аргумент?

Question

Я получаю сообщение об ошибке при установке сводного кэша. Т.е. на этой строчке: -

Set pvt = pvtCache.CreatePivotTable(TableDestination:=StartPvt, TableName:="PivotTable2")

Я использовал этот макрос в другой книге и не получил эту ошибку.

 Sub PivTable()
'
' Insert a pivot table
'

Dim sht As Worksheet
Dim pvtCache As PivotCache
Dim pvt As PivotTable
Dim StartPvt As String
Dim SrcData As String
Dim ws As Worksheet
Dim x As Long

Set ws = Worksheets("Cash Month End")

With ws
x = .Range("b999999").End(xlUp).Row

End With

 'Data Range to pivot

SrcData = "Cash Month End!(R4C1:R" & x & "C24)"

' Insert Sheet

    Sheets.Add.Name = "Cash Pivot"

  'Where the pivot must start

    StartPvt = "Cash Pivot!R3C1"

 'Create the pivot cache

 Set pvtCache = ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=SrcData)

  'Create Pivot Table from Pivot Cache

    Set pvt = pvtCache.CreatePivotTable(TableDestination:=StartPvt, TableName:="PivotTable2")

    'Add fields

    With ActiveSheet.PivotTables("PivotTable2").PivotFields("Segment")
        .Orientation = xlPageField
        .Position = 1
    End With


    With ActiveSheet.PivotTables("PivotTable2").PivotFields("Region")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("PivotTable2").AddDataField ActiveSheet.PivotTables( _
        "PivotTable2").PivotFields("No."), "Sum of No", xlSum
End Sub