VBA Transfer Range from Excel to Powerpoint (New or Existing Powerpoint Presentation)

See if this will get you close.

'Copy Range from Excel
  Set rng = ThisWorkbook.ActiveSheet.Range("B5:P32")
        
    'Is PowerPoint already opened?
    On Error Resume Next
    Set PowerPointApp = GetObject(, "PowerPoint.Application")
    On Error GoTo 0
  
    '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
  
'Make PowerPoint Visible and Active
  PowerPointApp.Visible = True
  PowerPointApp.Activate
    
' Reference presentation and slide
'http://peltiertech.com/Excel/XL_PPT.html
    On Error Resume Next
    If PowerPointApp.Windows.Count > 0 Then
        ' There is at least one presentation
        ' Use existing presentation
        Set myPresentation = PowerPointApp.ActivePresentation
    Else
        ' There are no presentations
        ' Create new presentation
        Set myPresentation = PowerPointApp.Presentations.Add
    End If
    On Error GoTo 0

'Add a slide to the Presentation
  Set mySlide = myPresentation.Slides.Add(1, ppLayoutBlank)