VBA for pivot table

Jeg har en pivot table som jeg med vba opdaterer efter input af ny data:
Worksheets("Pivot").PivotTables("PivotTable1").RefreshTable

I nuvaerende form bruger pivot tabellen en statisk range (raekker/kolonner), men det vil jeg gerne goere dynamisk og tilpasse antallet af raekker i input data. Jeg kunne med vba oprette en ny pivot tabel, men saa mister jeg format. Nogen hjaelp til hvordan jeg aendret range uden at aendre format?

Paa forhaand tak