Normalt används ActiveSheet i ett inspelat makro, men när det gäller datakällan för en pivottabell kopplas denna med en absolut referens till bladnamnet och källdatan. Om du tittar i den genererade makrokoden ser du att det står  SourceData:= "Blad1!R?C?:R?C?"  någonstans. Ersätt detta med ActiveSheet.Name & "!R?C?:R?C?"  (Jag har skrivit frågetecken i stället för siffror eftersom dessa beror på källdatans storlek)

Beskrivet förfarande kräver dock att storleken på det nya källdataområdet är densamma som innan. Dvs, att det är lika många kolumner och rader med data på det nya bladet som på Blad1. I Annat fall måste du ersätta de frågetecknen som jag skrev med funktioner som beräknar området på den nya källdatan.

/Andreas