VBA, Moving Pivot, не удалось получить свойство rowrange класса сводной таблицы

Question

У меня есть этот код, который обновляет мой стержень с последней строки до 52 строк. Он работает на другом моем стержне.Однако в этом центре я получаю ошибку unable to get the rowrange property of the pivottable class в строке For n = ws.PivotTables("scencount").RowRange.Count To 1 Step -1.Моя сводка находится на моем активном листе, а мой источник данных сводки находится на другой.

 Sub MovingPivotirworst()
        Dim ws As Worksheet
        Dim dtTop As Date
        Dim i As Integer, n As Long

        Const NumWeeks = 52  'Change this to set weeks range


        Set ws = ActiveSheet

        'reset the pivot filters
        ws.PivotTables("scencount").PivotFields("businessDate").ClearAllFilters
        'remove blank values
        ws.PivotTables("scencount").PivotFields("businessDate").PivotItems("(blank)").Visible = False


        'find the date entry in 50 places from bottom.
        i = 0
        For n = ws.PivotTables("scencount").RowRange.Count To 1 Step -1
            If i = NumWeeks Then
                dtTop = ws.PivotTables("scencount").RowRange.Cells(n).Value
                Exit For
            End If
            i = i + 1
        Next n

        ws.PivotTables("scencount").PivotFields("businessDate").PivotFilters.Add2 Type:=xlAfterOrEqualTo, Value1:=Format(dtTop, "dd-mmm-yyyy")
    End Sub

Может кто-нибудь помочь с этим?Спасибо.