Problemer med pivottabel

På baggrund af nogle tabeludtræk, skal jeg løbende have mulighed for at få en makro til at opdatere en bagvedliggende Pivottabel.

Det er ikke lykkedes mig at finde en metode hvormed jeg kan gøre denne pivottabel dynamisk, derfor en makro som opbygger den fra gang til gang, men den fejler ... og jeg har i.t.v. allokeret fejlen til at være denne TableName:="Pivottabel1" ...

Kan man ikke gennemtvinge at der altid genereres det samme TableName

eller er der en helt anden oplagt løsning som jeg kan benytte 

'Generer Pivot DebetBeløb
    ActiveWorkbook.PivotCaches.Add(SourceType:=xlDatabase, SourceData:= _
        "Data!C1:C9").CreatePivotTable TableDestination:= _
        "[Poster.xls]PivotDebet!R1C1", TableName:="Pivottabel1", DefaultVersion:= _
        xlPivotTableVersion10
    With ActiveSheet.PivotTables("Pivottabel1").PivotFields("Finanskontonr.")
        .Orientation = xlRowField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Pivottabel1").PivotFields("SUM")
        .Orientation = xlColumnField
        .Position = 1
    End With
    With ActiveSheet.PivotTables("Pivottabel1").PivotFields("SUM")
        .PivotItems("N").Visible = False
        .PivotItems("(Tom)").Visible = False
    End With
    ActiveSheet.PivotTables("Pivottabel1").AddDataField ActiveSheet.PivotTables( _
        "Pivottabel1").PivotFields("Debetbeløb"), "Antal af Debetbeløb", xlCount
    Range("B3").Select
    ActiveSheet.PivotTables("Pivottabel1").PivotFields("Antal af Debetbeløb"). _
        Function = xlSum