Add Method (Slides Collection Object) Example
This example adds a slide that contains a title placeholder at the beginning of the active presentation.
ActivePresentation.Slides.Add 1, ppLayoutTitleOnly
This example adds a blank slide at the end of the active presentation.
With ActivePresentation.Slides
.Add .Count + 1, ppLayoutBlank
End With