How do I change the code at the bottom to reference all the selected
cells in the source table/ The number of cells changes every time.

In other words what syntax replaces R1C6:R392C8? to reference the
selected cells whatever they may be?

I am obviously not at all proficient in this endeavor. Thanks

================================================== =======
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatab ase, SourceData:= _
"rents!R1C6:R392C8")
================================================== =======

Ed, take a look at "PivotTableWizard" in the VBA help.

HTH—Lonnie M.