I have a VBA to copy my selected range in excel and paste it into my current PPT slide. I am trying to add a process to the code that deletes everything in the active slide except for the title prior to pasting. Here is what I have but it is very inconsistent.

Sometimes it deletes the title, sometimes it deletes the previously pasted range, sometimes it works perfectly. Very confused why it is so inconsistent.

Any input would be greatly appreciated!

Dim mySlide As Object
Set mySlide = PowerPointApp.ActiveWindow.View.Slide

  For Each Shape In mySlide.Shapes      If Shape.Type <> msoPlaceholder Then Shape.Delete
  Next