Pivot Table VBA code: Out of Range Error

Hi Andy,

The code works marvels on the test workbook I sent you, however, when I try applying it to the original workbook I get the following error:

Runtime error: 5, Invalid Procedure Call or Argument for the following line again:

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Phone Bill Sort!R5C1:R34665C4", Version:=xlPivotTableVersion14). _
CreatePivotTable TableDestination:="Summary Sheet!R5C1", TableName:= _
"PivotTable1", DefaultVersion:=xlPivotTableVersion14