Sub ertert()
Dim x, i&
With Range("A1", Cells(Rows.Count, 1).End(xlUp))
    x = .Value
    For i = 1 To UBound(x)
        x(i, 1) = Mid(x(i, 1), 1, InStrRev(x(i, 1), ",") - 1)
    Next i
    .Value = x
End With
End Sub

Function splt_$(r As Range, t$)
Application.Volatile
Dim x, i&, v&
x = Split(r.Value, t)
i = UBound(x) - 1
For v = 0 To i
    splt_ = splt_ & t & x(v)
Next
splt_ = Right(splt_, Len(splt_) - Len(t))
End Function