Pivottabel hvor dataområde ændres

Sorry sådan ser koderne ud

Jeg har indspillet en makro som bl. laver en pivottabel.
Starten på makroen se således ud:
---
Sheets.Add
    ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
        "Data!R1C1:R351C6", Version:=xlPivotTableVersion14).CreatePivotTable _
        TableDestination:=ActiveSheet.Cells(3, 1), TableName:="Pivottabel2", DefaultVersion:= _
        xlPivotTableVersion14
    Cells(3, 1).Select
--
men da dataområdet varier har jeg tidliger brugt - worksheets("Ark1").Range("A1"): eks.:
--
ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        worksheets("Ark1").Range("A1").CurrentRegion).CreatePivotTable TableDestination:="", TableName:= _
        "Pivottabel1", DefaultVersion:=xlPivotTableVersion10
    ActiveSheet.PivotTableWizard TableDestination:=ActiveSheet.Cells(3, 1)
    ActiveSheet.Cells(3, 1).Select
--
Men det kan jeg nu ikke få til at funger, er der noget der kan se hvor fejlen ligger ??

Lukket