Split Text Across Multiple Columns and Add Additional Text

Re: A macro that can split a text string into multiple columns.
Following would do that.

Sub AAAAC()
Dim c As Range, a
    For Each c In Range("R2:R" & Cells(Rows.Count, "R").End(xlUp).Row)
        a = Split(Replace(c, ",", ""), " ")
            c.Offset(, 2).Resize(, UBound(a) + 1) = a
    Next c
End Sub

How do you apply the logic from your example (FLG 1-1/2" 300 316 RF BLD -----> FLG 1-1/2" 300# 316SS RF BLD) to, for instance, these?
BLD-FLG B16.5 1 1/2" 300 RF
1, 600, RFWN, F316/L SCHXXS
1/2, 600, RFWN, 347 SCH160

I am convinced that someone, certainly jindon, will come up with a solution but in the meantime we can play with it to see what we can arrange.