Add Table to Data Model (Pivot Table)

Hi, I am creating a Pivot Table but I want to add the source to a data model. How do I change this?

Code:

---

Set PC = ThisWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:=Sheet2.Range("A1").CurrentRegion)
Set pt = PC.CreatePivotTable(TableDestination:=Sheet1.Range("A1"))

---

?