Hia!

Happy New Year Friends.

I have spent almost 3 hours not but I am not able to spot the bug;

The following codes create a Pivot Table but the table does not generate
reports except for the field headings;

Sub SalesReports()

Dim pc As PivotCache
Dim pt As PivotTable

Set pc = ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, _
SourceData:=Range("b5:g39"))

Set pt = ActiveSheet.PivotTables.Add(PivotCache:=pc,
tabledestination:=Range("i5"))

Application.GoTo Range("i5")

End Sub

What is the problem in the codes?

Thanks.