You probably need to explain more fully but see if this works
Code:
Sub make_Titles()
Dim L As Long
For L = 2 To ActivePresentation.Slides.Count
If ActivePresentation.Slides(L).Shapes.HasTitle Then
ActivePresentation.Slides(L).Shapes.Title.TextFrame.TextRange = ActivePresentation.Slides(2).Shapes.Title.TextFrame.TextRange
End If
Next
End Sub