Excel to PowerPoint Paste with Keep Source Formatting

[sivaprakasam]

Hi i am using the excel 2013

I activated the excel and PowerPoint with 2 nos empty slides

Sheets "1" and "2" data range copy and paste to PowerPoint

this code paste with image, I need Paste with "Keep Source Formatting"

'Paste to PowerPoint and position
>>> use code - tags <<<

      On Error Resume Next
        Set shp = myPresentation.Slides(MySlideArray(x)).Shapes.PasteSpecial(DataType:=2) 'Excel 2007-2010
      On Error GoTo 0

Please modification this code

thanks for your help