Select the first of the pairs and run:

Sub johnnyb()
For Each r In Selection
r.Value = r.Value & " " & r.Offset(0, 1).Value
r.Offset(0, 1).Clear
Next
End Sub

This put the concatenation in VBA rather than in your worksheet.
--
Gary''s Student
gsnu200712