VBA Pivot Table Dynamic Range

[emad_mesalmy]

Greetings, How can i change below code to be dynamic range?


Sub Pivot_Data()
'
' Pivot_Data Macro
'


'
Range("A1").Select


Selection.CurrentRegion.Select

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
"Sheet1!R1C1:R34093C8", Version:=6).CreatePivotTable TableDestination:= _
"Sheet1!R1C12", TableName:="PivotTable2", DefaultVersion:=6

 

[Joe4]

Duplicate: https://www.mrexcel.com/forum/excel-questions/1037399-vba-pivot-table-dynamic-range.html

Please do not post the same question multiple times. All clarifications, follow-ups, and bumps should be posted back to the original thread. Per forum rules, posts of a duplicate nature will be locked or deleted (rule 12 here: Forum Rules).
If you do not receive a response, you can "bump" it by replying to it again, though we advise you to wait 24 hours before doing and not to bump a thread more than once a day.