Probably just a few lines aof code but you need to be exact in your needs.
Are the boxes actually named "SONG TITLE", LYRIC BODY" and "NEXT" (in the selection pane)?
Are there any other type of slide?
Assuming the answers are YES and NO!
Sub getNext()
Dim i As Integer
Dim strNext As String
For i = 1 To ActivePresentation.Slides.Count - 1
strNext = ActivePresentation.Slides(i + 1).Shapes("SONG TITLE").TextFrame.TextRange
ActivePresentation.Slides(i).Shapes("NEXT").TextFr ame.TextRange = strNext
Next i
ActivePresentation.Slides(ActivePresentation.Slide s.Count).Shapes("NEXT").TextFrame.TextRange = "END"
End Sub
You might also like to know we have a merge addin (not free but cheap) that would completely automate this (fill in ALL the boxes) from a CSV file made in Excel for any number of sets.
Simple Merge