Thread: [Solved] Select until last row
View Single Post
 
Old 08-12-2022, 10:48 AM
p45cal's Avatar
p45cal p45cal is offline Windows 10 Office 2019
Expert
  
Join Date: Apr 2014
Posts: 956
p45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond reputep45cal has a reputation beyond repute
Default
In the attached a macro:
Code:
Sub test()
Set PT = Sheets("Sum").PivotTables(1)
PT.TableRange1.Copy
Sheets("SumA").Range("F4").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=True
End Sub
Separately, a copy of your pivot table at cell B15 of the SumA sheet with a small adjustment to how things are displayed.
Attached Files
File Type: xlsm msofficeforums49492Selec Last Row vba.xlsm (334.1 KB, 6 views)
Reply With Quote