In the slide pane to the left, click in the space between the slides where you want to insert a new slide or slides. In this case, click between slides 6 and 7.

Insert this code between the "Sub" and "End Sub" lines:For i = 1 To number_of_slides ActivePresentation.Slides.Add slide_number, ppLayoutBlank Next iReplace "number_of_slides" with the number of ...

It’s easy to add slide numbers to a presentation, but you can also remove those numbers from specific slides.