Hello, I have a variable number of slides, and I would like to copy the range A1:G100 to its own pppt slide from each sheet. However, I dont want it copied as a picture rather it should be editable. I have attached code I have found by Andy Pope but still having trouble as it only copies as a picture and I cannot specify the range.

Sub UsedRangePPT()
Dim ObjPPt As Object
Dim shtTemp As Object
Dim intSlide As Integer

Set ObjPPt = CreateObject("Powerpoint.application")
ObjPPt.Visible = True
ObjPPt.Presentations.Add
ObjPPt.ActiveWindow.ViewType = 1 'ppViewSlide

For Each shtTemp In ThisWorkbook.Sheets
shtTemp.Range("A1", shtTemp.UsedRange).CopyPicture Format:=xlPicture, Appearance:=xlScreen
intSlide = intSlide + 1
' new slide for each chart
ObjPPt.ActiveWindow.View.GotoSlide Index:=ObjPPt.ActivePresentation.Slides.Add(Index:=ObjPPt.ActivePresentation.Slides.Count + 1, Layout:=12).SlideIndex
ObjPPt.ActiveWindow.View.Paste
With ObjPPt.ActiveWindow.View.Slide.Shapes(ObjPPt.ActiveWindow.View.Slide.Shapes.Count)
.Left = (.Parent.Parent.SlideMaster.Width - .Width) / 2
End With
Next

Set ObjPPt = Nothing
End Sub