Split Text Across Multiple Columns and Add Additional Text

Or a slower version maybe
As per your example.

Sub Jim_Clayton()
Dim a, i As Long
    For i = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        a = Split(Cells(i, 1), " ")
            Cells(i, 1).Offset(, 1) = a(0) & " " & a(1) & " " & a(2) & "(#)" & " " & a(3) & "(SS)" & " " & a(4) & " " & a(5)
    Next i
End Sub