Im trying to execute a simple copy and paste to PPT from EXCEL, open a ppt file then just take the copy of the table to an existing PPT file. im stuck at one are, doesnt paste. Can anyone help, using ms office 365

Sub PasteEXCELtoPPT()

Dim pptApp As Object
Dim pptPresentation As Object
Dim pptSlide As Object
Dim pptShape As Object
Dim excelRange As Range

Set excelRange = ThisWorkbook.Sheets("Dashboard").Range("A4:R25")

On Error Resume Next
Set pptApp = GetObject(, "PowerPoint.Application")
On Error GoTo 0

If pptApp Is Nothing Then
Set pptApp = CreateObject("PowerPoint.Application")
pptApp.Visible = True
End If

Set pptPresentation = pptApp.Presentations.Add

excelRange.Copy

'IT BREAKS HERE

pptSlide.Shapes.PasteSpecial ppPasteEnhancedMetafile

end sub


it doesnt paste

Thank you for your help and insight