Add new slide to Powerpoint

Tried several different way I could find online, but they all give me excel error messages....
(Mostly argument is not optional)

This is the code :

Sub Open_PowerPoint_Presentation()

Dim objPPT As Object, _
    PPTPrez As PowerPoint.Presentation, _
    pSlide As PowerPoint.Slide, _
    pptLayout As CustomLayout

Set objPPT = CreateObject("PowerPoint.Application")
objPPT.Visible = True

Set PPTPrez = objPPT.Presentations.Open("H:\TEMP\PPT\Template\OpenATemplate.pptx")
Set pSlide = PPTPrez.Slides(1)


    'Charts
    Sheet9.Visible = xlSheetVisible
    Sheet9.Select
    Sheet9.Shapes.Range(Array("Picture 2")).Select
    Selection.Copy
    pSlide.Shapes(6).Select
    pSlide.Shapes.PasteSpecial(DataType:=ppPasteMetafilePicture).Select
    Application.CutCopyMode = xlCut
 
End Sub

So after the chart has been pasted (this all works just fine) I simply want to add a new Slide.
How hard can it be you would think....

Hmm thanks sintek, but now I am getting error like 'Object required'.

Can it really be that hard to add 1 extra slide to an existing and open powerpoint presentation?

Thanks xlnitwit.
Was a small typo in that last line (ppTlayout), but even this gives me the object required error on that last line...

Hmmm since a few weeks I work in Office 365 so I think that is Excel 2016.
But why would it throw me an object required error?

Ahh...thought you corrected ppt, but you also took out blank.

This works just fine!
Thanks.

Ok wait I still like to know somehting...better use this thread.

How would I now select that new slide....I again get the object required and active x error messages.....

Ok thanks that did it.

But what you mean with is not necessary?

How would I paste my next chart to the shape(6) on the new added sheet then without selecting that sheet?

Ok thanks.