VBA - Creating Pivot Tables In New Sheets Using Dynamic Objects?

I am trying to solve in VBA how to create pivot tables in new sheets using objects instead of relying on the sheetcounter, which errors out.

I found an old Tip on Mr. Excel: Excel Create and name a new worksheet with VBA

But I can't figure out how to apply the object to the rest of the script. Here is what I have so far:

Sub Macro2()
'
' Macro2 Macro
'
Dim WS As Worksheet
Set WS = Sheets.Add
'

[Code]....