Excel Tabelle nach PPT kopieren per VBA

ich habe folgenden Code (in Excel):

Sub PPT()
Dim A As Object
Dim P As Object
Dim F As String
sFile = "H:\Test"
Set A = CreateObject("Powerpoint.Application")
A.Visible = msoTrue
Worksheets("Tabelle1").Range("A1:E6").Copy
Set P = A.Presentations.Open(F)
"irdendwas".Paste
.
.
.
End Sub

Ich schaffe es einfach nicht, den makierten Bereich nach PPT zu kopieren.
Hat jemand eine Idee/Tipp oder kann er den Code vervollständigen??

Mfg
Aleks