Dynamische range in een draaitabel

[niels12345]

Ik wil graag een dynamische range toevoegen aan een draaitabel, aangezien de macro meerdere bestanden opent met elk een andere range. Ik heb nu de volgende code:

Workbooks.Open Filename:="D:\Macro\Macro.xls"
    Range("A1").Select
    Range(Selection, Selection.End(xlToRight)).Select
    Range(Selection, Selection.End(xlDown)).Select

'SourceData in onderstaande zou ik dan graag dynamische willen maken, zodat altijd alle data in de draaitabel meegenomen wordt.
    
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "VNAB_txns!R1C1:R4587C29").CreatePivotTable TableDestination:="", TableName _
        :="Draaitabel1", DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
    With ActiveSheet.PivotTables("Draaitabel1").PivotFields("Code")
        .Orientation = xlRowField
        .Position = 1
    End With
    ActiveSheet.PivotTables("Draaitabel1").AddDataField ActiveSheet.PivotTables( _
        "Draaitabel1").PivotFields("""bedrag"""), _
        "Som van ""bedrag""", xlSum
    Range("A3").Select

Alvast bedankt voor de hulp weer!

Groeten,
Niels