VBA to find last column on a worksheet with a pivot table

[nguerra]

Ok, so I've tried lots of examples to I've ran into a stumbling block. I have a table of data and from that table I created a pivot table. The data table always has a fixed number of columns so no problem there. The pivot table is always placed at the end of the data table, plus one column so I always have a column space in between the data table and pivot table. The number of columns the pivot table could have varies all of the time. What I'm looking for is how to get the last column of the pivot table where all of my grand totals are stored. Everything I've found so far seems to either stop at the space between the data table and pivot table or at a blank cell with in the pivot table. Any ideas?

[nguerra]

Never mind, found the easiest solution below.

ActiveSheet.PivotTables(1).PivotSelect "'Row Grand Total'", xlDataAndLabel, True