Kopiering af excel range ind i powerpoint som range

Hej

Jeg forsøger at kopierer noget fra et excel ark ind i en eksisterende PowerPoint.

Jeg bruger Late Binding.

Jeg kopierer det som excel.range og vil gerne paste det som range og ikke som shape, jeg vil gerne kun have indholdet med over, og ikke baggrund mm

Jeg har sat min makro ind herunder ...
Er det muligt ... ?

Sub Latebinding()

Dim otherApp As Object
Dim otherDoc As Object
Dim otherSpecificObjects As Object

Set otherApp = CreateObject("Powerpoint.Application")
Set otherApp = GetObject(, "Powerpoint.Application")

Dim PPApp As Object
Dim PPPres As Object
Dim PPSlide As Object
Dim rng As Excel.Range

Set PPApp = CreateObject("Powerpoint.Application")
Set PPPres = PPApp.Presentations.Open("P:\sb\test.ppt")
Set rng = ThisWorkbook.ActiveSheet.Range("A2:g45")

rng.Copy
PPPres.Slides(1).Shapes.Paste

Set PPSlide = Nothing
Set PPPres = Nothing
Set PPApp = Nothing
End Sub