top_cell = oCalcs.Range("a2:a2") calcs_range = oCalcs.Range(top_cell,lastCell) oSourceData = oCalcs.Range(top_cell,lastCell) && here is the source range data for the pivot table oDestination = oWorkBook2.Sheets("2").range("a1:a1") && here is the range for where the table will go ** code to create pivot table ??Thank you, Steve