В зависимости от того, что вы собираетесь, другие ответы могут быть правильными. Если вы хотите начать на слайде 2 и продолжить до конца показа , то примерно так:
Dim x as Long
Dim oSl as Slide
For x = 2 to ActivePresentation.Slides.Count
Set oSl = ActivePresentation.Slides(x)
With oSl
' Do whatever you need to do with the slide here
End With
Next