Split Text Across Multiple Columns and Add Additional Text

Okay. I managed to get a workbook updated. scroll down to row 100 and you'll find a short description that hopefully answers a lot of questions, as well as some code that might prove useful. Please let me know if anything further is needed. Thanks to everyone for their help. Also, attached workbook might be in 2007 and the original was in 2010. My computer situation at the moment needs improvement to say the least. Thanks again.

Column D split into Column G and on

Sub AAAAA()
Dim c As Range, a
    For Each c In Range("D2:D" & Cells(Rows.Count, 4).End(xlUp).Row)
        a = Split(Replace(c, ",", ""), " ")
            c.Offset(, 3).Resize(, UBound(a) + 1) = a
    Next c
End Sub

How would you determine if a value of for instance 550 would get SS or # as suffix?