Opdatering af Pivottabel via Push Button

Hej

Jeg har to worksheets W1 og W2 og hvert worksheet har en pivottabel i to separate worksheets (W1A og W2A).

Jeg vil gerne finde en makro til en push button i henholdsvis W1 og W2, so pivottabellerne bliver automatisk opdateret, når jeg har tilføjet data til Data Source i W1 og W2. Data Source vil altid være fra kolonne A5 til AE1048576 (hele vejen ned) men antallet af rækker til ændres ugentligt. Jeg har navngivet Data Source Range i W1 til Pivot1 og i W2 til Pivot2.

Opsummering: Makroen skal opdatere pivottabellen på worksheet W1A for data på W1 (Data Source Range er Pivot1) ved hjælp af en push button på worksheet W1. Det samme for W2 (og W2A og Pivot2).

Jeg har prøvet at bruge nedenstående kode uden held:

Sub Button11_Click()

'Update Pivot Table for Allokationsdaten

Set pvtTable1 = Worksheets("Allokationsdaten (D-Sc)").Range("Pivottabelle1").PivotTable
pvtTable1.RefreshTable

End Sub

På forhånd tak for hjælpen.