Slide.MoveTo (PowerPoint)

Moves the specified object to a specific location within the same collection, renumbering all other items in the collection appropriately.

MoveTo (toPos)

toPos: The index position to which to move the animation effect.

Dim lngtoPos As Long: lngtoPos = 
ActivePresentation.Slides.Range(1).MoveTo toPos:=lngtoPos