如何引用动态的数据透视表的源数据

Triwater

碰到一个问题：录了一段宏，运行数据透视表，想把这段宏用于数据量不同的表格（但格式和列都是一样的，只是有些是10行，有些是100行），如下：

Sub Pivot()

    ActiveCell.CurrentRegion.Select
    Range("E1").Activate
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "DoradoReport!R1C1:R464C16").CreatePivotTable TableDestination:="", _
        TableName:="PivotTable2", DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveWorkbook.ShowPivotTableFieldList = True
    With ActiveSheet.PivotTables("PivotTable2").PivotFields("´ÙÏúµµÆÚ")
        .Orientation = xlRowField
        .Position = 1
    End With
    ..............

这里 "DoradoReport!R1C1:R464C16"是引用的我录的那些数据，无法运行于新的excel（因为新的数据不一定都是R1C1:R464C16), 如何确保每次引用的数据都是新的表格里面所有的数据？有人有办法么？谢谢了！