Creating Multiple Tables Using Loop in VBA. I still want to add new sheets and add

[p45cal]

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