运行时错误仅出现在特定计算机上

Question

我在其他同事也使用的文件中有以下宏。

Sub Bucket_on_parts()
If ActiveSheet.ProtectContents = False Then
  Dim pT As PivotTable
  Dim lastRow, lastRowHere, lastRowSummary As Long
  Dim FMList, checkAIR, checkSummary As String
  'clear content
  Sheets("Pivot").Visible = True
  Sheets("Pivot").Range("L4:L978").Clear
  Sheets("summary").Range("A2:D976").Clear

  Set pT = Sheets("Pivot").PivotTables("PivotTable2")
  lastRow = Sheets("overview").Range("G1000").End(xlUp).Row
  lastRowHere = Sheets("query").Range("D1000").End(xlUp).Row
  If lastRow < 14 Then
    MsgBox ("no data to work on")
    Sheets("Pivot").Visible = 2
    Exit Sub
  Else
    With pT
        'Update the pivot table
        .PivotCache.Refresh
        'clear all filters
        .PivotFields("Accepted").ClearAllFilters
        'filters only accepted items
        .PivotFields("Accepted").CurrentPage = "YES"
    [...]
 End Sub

当我在电脑上运行它时，它会顺利进行。

当一位同事在自己的电脑上运行时，他会不断获得

Run-time error '1004': 
Application-defined or object-defined error 

on .pivotCache.Refresh

我已经尝试在我的计算机上使用自己的文件，但我没有收到任何错误。 如果我在他的计算机上一步一步地运行宏，我会看到这个详细的错误消息：

关于如何解决这个问题的任何想法？