title: Select Pivot table row and columns
body: <p><a href="https://i.stack.imgur.com/3ahST.png" rel="nofollow noreferrer"><img src="https://i.stack.imgur.com/3ahST.png" alt="enter image description here"></a>I need assistance with selecting a Pivot table range to copy into another spreadsheet. What I need to do is copy all the rows and columns for a specific "Project WBS" value that will be searched on.</p>
  
  <p>In my code below I tried using xlDataAndLabel but it only gives me the Project WBS and Pivot Items I need. It leaves out the "Description", "Employee", and "Activity Type" columns. I can't use .EntireRow.Copy because when I go to the other workbook to paste I get an error saying the size is too great.</p>
  
  <p>Your help is greatly appreciated.</p>
  
  <p>Max</p>
  
  <pre><code>Sub getPivotData()
  
  Dim PvtTbl As PivotTable
  Set PvtTbl = Worksheets("Aug 18 Report").PivotTables("PivotTable1")
  Worksheets("Aug 18 Report").Activate
  
  Application.PivotTableSelection = True
  PvtTbl.PivotSelect "GS136.548", xlDataAndLabel
  Selection.Interior.Color = vbYellow
  End Sub
  </code></pre>