Insert Function with Macro

Hi lonesoac0,
try it

Sub ttt()
Dim x, i&, sp
With Range("A1", Cells(Rows.Count, 1).End(xlUp))
    x = .Value
    For i = 1 To UBound(x)
        sp = Split(Replace(x(i, 1), ",", ""))
        x(i, 1) = sp(1) & ", " & sp(0)
    Next i
    .Value = x
End With
End Sub