Snippet for you:
Sub blah()
Set PT = Sheets("Sheet6").Range("B6").PivotTable
Set Destn = Sheets("Sheet6").Cells(Rows.Count, "W").End(xlUp).Offset(3)
With PT
Set pf = .PageFields("Tenure")
For Each pit In pf.PivotItems
pf.CurrentPage = pit.Name
With .TableRange1
.Copy
Destn.PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
Set myTable = Sheets("Sheet6").ListObjects.Add(xlSrcRange, Destn.Resize(.Rows.Count, .Columns.Count), , xlYes)
myTable.TableStyle = "TableStyleMedium14"
myTable.ShowTableStyleRowStripes = False
Set Destn = Destn.Offset(.Rows.Count + 2)
End With '.TableRange1
myTable.Unlist
Next pit
End With 'PT
End Sub