Copying and Pasting a Slide
Sub copy() ActivePresentation.Slides(1).Copy ActivePresentation.Slides.Paste Index:=5 End Sub