Need vba code to export dashboard range as ppt slide

Found code help on this with this screnio

Sub GetExcelDataInYourPresentation()
     
    'Declaration
    Dim PptApp As PowerPoint.Application
    Dim PptDoc As PowerPoint.Presentation
     
    'Initialisation
    Set PptApp = CreateObject("Powerpoint.Application")
    PptApp.Visible = True
    Set PptDoc = PptApp.Presentations.Open("C:\Finance_Pres.ppt")
  
    With PptDoc
        'copy cells from the Excel sheet
        Feuil1.Range("B1:H5").Copy
        'Paste in the slide
        .Slides(2).Shapes.Paste
    End With
     
   'Layout
    With PptDoc.Slides(2).Shapes(.Slides(2).Shapes.Count)
        .Name = "Weather" 'Rename the table pasted
        .Left = 150 'Horizontal position in the slide
        .Top = 100 'Vertical position in the slide
        .Height = 300 'Height
        .Width = 400 'Width
    End With
  
    'Insert cell A1 in the text zone of the slide 4
    PptDoc.Slides(4).Shapes(2).TextFrame.TextRange.Text = Range("A1").Value2
  
    'Free variables
    Set PptDoc = Nothing
    Set PptApp = Nothing
 
End Sub