Do you mean try replacing line 19 in Macro #2 ...

oRng.Font.Name = "Symbol"
... with this?

oRng.Font.Name = "Symbol", CharacterNumber:=-3920, Unicode:=True
When I tried that just now, it said "Compile error: Expected: end of statement" with the first comma highlighted.

If it did work, I think the character number would need to be replaced by a variable though, because the character number is different for each character (-3920 = degree, -3919 = plus-or-minus) and so would need to change for each iteration of the loop, but I don't know enough VBA to get it working.