If only blanks PIVOT should not be inserted

[mana]

try1

With ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=tbl).CreatePivotTable(TableDestination:=Sheets("Summary").Range("F6"))

try2

With ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=tbl.Address(ReferenceStyle:=xlR1C1, External:=True)).CreatePivotTable(TableDestination:=Sheets("Summary").Range("F6"))

[Hudson]

Mana. this is fantastic approach , I tried and indeed it worked .. thanks mate I really appreciate your efforts in this ..