Excel VBA Macro To Dynamically Change Source for Pivot Table

[Excel Fox]

    Worksheets("Pivot Table").PivotTables("PivotTable4").ChangePivotCache _
    ActiveWorkbook.PivotCaches.Create _
        (SourceType:=xlDatabase, SourceData:=Worksheets("Imported Data").Range("A1:L" & _
        Worksheets("Imported Data").Cells(Rows.Count, 1).End(xlUp).Row).Address(External:=True), _
        Version:=xlPivotTableVersion14)