Pivot Details into New WorkBook

Hello,

Just got my first problem solved and another one arises. (Thanks again to DonkeyOte)

So with the code below I can now get pivot details with a mouse click and simultenously it deletes "unwanted" columns. This works perfectly.

Now my question is : can I get pivot details open into new workbook rather than ?

If this is possible, then the second question is as follows :

This is not mandatory, but would be really cool.
Is there a way to give the new workbook a name ? ideally it would be Waste Proposal + Current datetime.

Sub Hylkyehdotus()
'
' Hylkyehdotus Macro
'

    Dim rngArea As Range
    With Sheets("TOY Mill Stocks").PivotTables("PivotTable2").TableRange1
        .Cells(.Cells.Count).ShowDetail = True
        For Each rngArea In Range("B:B,E:G,J:J,L:AZ,BB:BG").Areas
            rngArea.Delete
        Next rngArea
    End With
          
End Sub