Sub PasteSlides()
Dim filenum As Integer
Dim strBuffer As String
Dim rayData() As String
Dim oLib As Presentation
Dim raySlides() As Long
Dim L As Long
Dim x As Long
filenum = FreeFile
' change to your text file location
Open "C:\Users\John\Desktop\data.txt" For Input As filenum
While Not EOF(filenum)
    Line Input #filenum, strBuffer
    rayData = Split(strBuffer, ",")
    Set oLib = Presentations.Open(FileName:=rayData(0), WithWindow:=False)
    ReDim raySlides(1 To rayData(2) - rayData(1) + 1)
    For L = CLng(rayData(1)) To CLng(rayData(2))
        x = x + 1
        raySlides(x) = L
    Next L
    oLib.Slides.Range(raySlides).Copy
    oLib.Close
    ActivePresentation.Windows(1).Activate
    CommandBars.ExecuteMso ("PasteSourceFormatting")
    DoEvents
    x = 0
Wend
End Sub