Here is another formula that should do the same thing:

=TRIM(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(SUBSTITUTE(I1487,"20refund",""),"20charge","")," 2E001",".001")," 20"," "),"Receipt Number",""))

In this case, it is easier to follow what is actually being substituted.... so might be easier to understand.

The TRIM() will clean any stray spaces...before, after or in between.