You could also do it with just a wildcard Find/Replace, where:
Find = ([0-9]{2}/[0-9]{2}/[0-9]{2} Expense [0-9.]@ )([0-9.]@ )([0-9.]{1,})[!^13]@^13(*)^13(*)^13(*)^13*^13
Replace = \1(Billed $\2Reduced $\3) \4 \5 \6^p
No VBA required.

__________________
Cheers,
Paul Edstein
[Fmr MS MVP - Word]