There's no built in way to do that. fairly easy if you can code though.
If you name the shapes on first and last slides to match (In my case username and password) this sort of code would work and could easily be extended to other shapes.
Code:
Sub copyText()
Dim firstsld As Slide
Dim lastsld As Slide
Set firstsld = ActivePresentation.Slides(1)
Set lastsld = ActivePresentation.Slides(ActivePresentation.Slides.Count)
lastsld.Shapes("username").TextFrame.TextRange = firstsld.Shapes("username").TextFrame.TextRange
lastsld.Shapes("password").TextFrame.TextRange = firstsld.Shapes("password").TextFrame.TextRange
End Sub