Macro der aendrer celleindhold permanent til vist format

Jeg vil gerne lave en macro der aendrer celleindholdet i alle numeriske celler i mit regneark til det der er bestemt under formater.
Altsaa:
Hvis jeg har bestemt at 0.876544 skal vises i min celle som 0.9 vil jeg gerne have det andret cellen permanent til vaerdien 0.9
Ligeledes, hvis jeg har bestemt at 48.1 skal vises som 48 vil jeg gerne have cellens indhold aendret permanent til 48
100.99177 vist i mit Excel ark som 100.99 skal aendres til 100.99
etc.

Jeg har i mine eksempler brugt amerikansk/engelsk komma (Punktum).

Jeg har nogle celler i mit ark, der er skrivebeskyttede - de skal springes over.