It should be something close to this. You will need to add some shape resize parts or such.

I added early binding to make it easier for you to add to this. Add the reference in VBE's Tools > References.

'PURPOSE: Copy/Paste An Excel Range Into a New PowerPoint Presentation
'SOURCE: www.TheSpreadsheetGuru.com
Sub Main()
  Dim ar As Range, r As Range
  'Dim PowerPointApp As Object, myPresentation As Object
  'Dim mySlide As Object, myShape As Object
  Dim PowerPointApp As PowerPoint.Application, myPresentation As Presentation
  Dim mySlide As Slide, myShape As PowerPoint.Shape


'Create an Instance of PowerPoint
  On Error Resume Next
  'Is PowerPoint already opened?
  Set PowerPointApp = GetObject(class:="PowerPoint.Application")
  'Clear the error between errors
  Err.Clear
  'If PowerPoint is not already open then open PowerPoint
  If PowerPointApp Is Nothing Then Set PowerPointApp = CreateObject(class:="PowerPoint.Application")
    
  'Handle if the PowerPoint Application is not found
  If Err.Number = 429 Then
    MsgBox "PowerPoint could not be found, aborting."
    Exit Sub
  End If
  On Error GoTo 0
  'Create a New Presentation
  Set myPresentation = PowerPointApp.Presentations.Add
  
  Set r = Worksheets("Sheet19").Range("D7:I39,D42:I73,D75:I106")
  For Each ar In r.Areas
    'Add a slide to the Presentation
    Set mySlide = myPresentation.Slides.Add(1, 11) '11 = ppLayoutTitleOnly
    'Copy Excel Range
    ar.Copy


    'Paste to PowerPoint and position
    mySlide.Shapes.PasteSpecial DataType:=2  '2 = ppPasteEnhancedMetafile
    Set myShape = mySlide.Shapes(mySlide.Shapes.Count)
    
    'Set position:
    myShape.Left = 0
    myShape.Top = 0
  Next ar
  
  'Make PowerPoint Visible and Active
  PowerPointApp.Visible = True
  PowerPointApp.Activate




  'Clear The Clipboard
  Application.CutCopyMode = False
  Application.ScreenUpdating = True
End Sub