Just copy paste the codes you used inside the sub Copy_Pivot() macro ,to the end of the Sub InsertPivotTable() . It will work .!