>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 ?? >>