Powerpoint VisualBasic Script

Sub insert()
    Presentations("Corporate.ppt").Slides.InsertFromFile _
        FileName:="C:\Your.ppt", Index:=5, _
        SlideStart:=2, SlideEnd:=8
End Sub