Add characters to the array as required
Your workbook needs to be saved as an XLSM file to contain the macro coding.

Function MyClean(Data)
    Dim arr, a
    arr = Array(&HE185, &HE04C)
    For Each a In arr
    Data = Replace(Data, ChrW(a), "")
    Next a
    MyClean = Data
End Function