How to move a slide to the end of the presentation?(VBA-PP)

It is easy!Set it as the first slide of the presentation and then cut and paste it one position before (What?!? which position is before the first one?... The last one!! VBA is amazing... I know!! :))

So just do it like this:

Sub...()
....
ActivePresentation.Slides.Range(1).Cut
ActivePresentation.Slides.Paste -1
....
End Sub