как заменить массив выбранной ячейки на выбор активной ячейки в VBA?

Question

я новичок в VBA, у меня мало проблем с VBA. Я пытаюсь макрос записи сводной таблицы следующим шагом:

---

Sub Macro1()
'
' Macro1 Macro
'

'
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlConsolidation, SourceData:= _
        Array("Sheet2!R2C1:R147C45"), Version:=6).CreatePivotTable TableDestination _
        :="", TableName:="PivotTable7", DefaultVersion:=6
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    ActiveSheet.PivotTables("PivotTable7").DataPivotField.PivotItems("Sum of Value" _
        ).Position = 1 
End Sub

---

Я хочу заменить >>

Array("Sheet2!R2C1:R147C45")

К

Range(ActiveCell, Cells(ActiveCell.End(xlDown).Row, ActiveCell.End(xlToRight).Column)).Select

Причина этой замены заключается в том, что каждый раз моя активная ячейка отличается, поэтому я не хочу использовать жесткий код Array («Sheet2! R2C1: R147C45»), вместо этого я хочу выбрать активную ячейку, но, похоже, я не могу заменить jz это легко.