Slide.Duplicate (PowerPoint)

Creates a duplicate of the specified Slide object, adds the new slide to the Slides collection immediately after the slide specified originally, and then returns a Slide object that represents the duplicate slide.

Dim sreDuplicate As SlideRange
Set sreDuplicate = ActivePresentation.Slides.Range(1).Duplicate()