Powerpoint VisualBasic Script

Sub copy()
    ActivePresentation.Slides(1).Copy
    ActivePresentation.Slides.Paste Index:=5
End Sub