Sub AddTable() Dim pvc As PivotCache Dim pvt As PivotTable Set pvc = ActiveWorkbook.PivotCaches(1) Set pvt = ActiveSheet.PivotTables.Add(PivotCache:=pvc, TableDestination:=Range("A3")) End Sub