Paste values into PowePoint

[Forestq]

Hi,

I tried to copy values to PPT but I got error like:
Run-time error '-2147188160 (80048240)':
Shapes (unknown member): Invalid request. Clipboard is empty or contains data which may not be pased here

my code:

Dim pp_App As PowerPoint.Application
Dim pp_Prest As PowerPoint.Presentation
Dim pp_Slide As PowerPoint.Slide

pp_App.Visible = msoTrue
pp_App.Activate

Set pp_Prest = pp_App.Presentations.Add

Set pp_Slide = pp_Prest.Slides.Add(1, ppLayoutTitle)
pp_Slide.Shapes(1).TextFrame.TextRange = "Dashboard ETC"

Set pp_Slide = pp_Prest.Slides.Add(2, ppLayoutBlank)
pp_Slide.Select

Sheet3.Range("A2").CurrentRegion.Copy
pp_Slide.Shapes.Paste.Select

Any suggiestion what can be wrong are welocome...
working ony when I make like this:

pp_slide.Shapes.PasteSpecial ppPasteOLEObject