Export Excel Range To PPT As An Excel Table Not As Picture Using VBA Macro

[Excel Fox]

Here's this should help

Sub ExcelFox()

    Dim appPPT As Object 'PowerPoint.Application
    Dim pptNew As Object 'PowerPoint.Presentation
    Dim lyt As Object 'PowerPoint.CustomLayout
    Dim vararrRangeToExport As Variant, varEach As Variant
    
    vararrRangeToExport = Array("B16:C19", _
                                "B23:H33", _
                                "B35:H36", _
                                "B67:V80", _
                                "B374:V390", _
                                "B1303:V1320")
    Set appPPT = CreateObject("PowerPoint.Application")
    appPPT.Visible = 1 'msoCTrue
    Set pptNew = appPPT.Presentations.Add(-1) 'msoTrue
    For Each varEach In vararrRangeToExport
        pptNew.Slides.Add Index:=pptNew.Slides.Count + 1, Layout:=12 'ppLayoutBlank
        Range(varEach).Copy
        Call pptNew.Slides(pptNew.Slides.Count).Shapes.PasteSpecial(10) 'ppPasteOLEObject
    Next varEach
    
End Sub