Run-time error '2147024809'

[abraham30]

Dear all,

I am getting run time error while refreshing the pivot in attached sheet.
Can anyone help me.

The macro is working for most of the sheet except few one (also not working for more than thousands records)

[VBA]
With Sheets("overview")

.PivotTables("PivotTable4").ChangePivotCache _
ActiveWorkbook.PivotCaches.Create( _
SourceType:=xlDatabase, _
SourceData:=Worksheets("raw data").UsedRange, _
Version:=xlPivotTableVersion14)
.PivotTables("PivotTable4").PivotCache.Refresh

End With
[/VBA]