Private Sub Worksheet_SelectionChange(ByVal Target As Range) 'By pierrejean
Application.ScreenUpdating = False
For n = 1 To Range("A65536").End(xlUp).Row
If Range("A" & n) <> "" And Range("A" & n) = [A1] Then
x = Split(Trim(Range("A" & n)), " ")
For m = 0 To UBound(x)
Range("D" & n) = (Range("A" & n) & " " & Range("B" & n) & " " & Range("C" & n)) * 1
Next m
End If
Next n
Application.ScreenUpdating = True
End Sub