Excel VBA to copy all the PPT slides with correct format into new template

Question

I have below code through which I am able to copy slides from old PPT to new PPT format. The only problem I am facing is that it fail to copy all the slides at one go. I am