To display the last slide, use the Last method:
Sub last() ActivePresentation.SlideShowWindow.View.Last End Sub