VBA Error in Pasting to Powerpoint from Excel

[akhileshgs]

Hello,
I am getting error while running the following code in my module. There are 2-3 times this following code appears in my modules for copy-pasting the different contents. When the macro runs, sometimes it runs smoothly and sometimes it gives the error any any of the 2-3 instance of this code.
error.jpg

Running office 365 in windows-10

        ThisWorkbook.Sheets("Project Status Report").Range("B9:V42").Copy 
        PPSlide.Shapes.PasteSpecial(ppPasteEnhancedMetafile).Select 
        'Position the pasted content properly 
        newPowerPoint.ActiveWindow.Selection.ShapeRange.Top = 150 
        newPowerPoint.ActiveWindow.Selection.ShapeRange.Left = 2 
        With newPowerPoint.ActiveWindow.Selection.ShapeRange 
            .LockAspectRatio = True 
            .Top = 90 ' points 
            .Left = 3 
            .Width = 715 
        End With  

Can anybody please help?