Pivot table macro not working and I'm at a lose as to why

I have attached a worksheet that is driving me crazy. The code that I am using is listed below:

HTML Code: 

I know this code works because I have used it many, many times and it gives the pivot results I am looking for. I really don't know what the problem is here. Any thoughts are welcome.

Thanks

Eddie

I suspect the error is in named range.
If I change this line

Set cacheOfPt = ActiveWorkbook.PivotCaches.Create(xlDatabase, Range("ReceivingSourceData"))

INTO

Set cacheOfPt = ThisWorkbook.PivotCaches.Create(xlDatabase, Sheets("Receiving").Range("A7:F1614"))

it works.
It know PT will not work if you have a complete blank rows or columns, but could not see this problem on your data.

this seems to work also
CHANGE

Sheets("Receiving").Select
Set cacheOfPt = ActiveWorkbook.PivotCaches.Create(xlDatabase, Range("ReceivingSourceData"))

INTO

Sheets("Receiving").Select
Set cacheOfPt = ActiveWorkbook.PivotCaches.Create(xlDatabase, "ReceivingSourceData")

EDIT: just a note....I commented out the On Error stuff because it was masking errors....HTH

glad I could help....and thanks for the rep points