Não consigo encontrar nenhuma maneira de fazer isso. O que tenho agora é que ele copia o intervalo como uma imagem:

Dim XLApp As Excel.Application 
Dim PPSlide As Slide 

Set XLApp = GetObject(, "Excel.Application") 
XLApp.Range("A1:B17").Select 
XLApp.Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
PPSlide.Shapes.Paste.Select

isso funciona como um encanto, mas é possível fazer com que ele copie o intervalo como uma tabela em vez de como uma imagem?