Excel VBA with Pivot Table

[bryant_16]

ActiveWorkbook.PivotCaches.Create(SourceType:=xlDatabase, SourceData:= _
 "" & Left(ActiveWorkbook.Name, (InStrRev(ActiveWorkbook.Name, ".", -1, vbTextCompare) - 1)) & _
"!R1C33:R1048576C106", Version:=xlPivotTableVersion12). _
        CreatePivotTable TableDestination:="Sheet1!R3C1", TableName:="PivotTable1" _
        , DefaultVersion:=xlPivotTableVersion12

I have this, but it is always pointing to Sheet1, how do I make it in such a way, it is always a new sheet inside the spreadsheet?