Necesito una macro que reemplace valores

Necesito una macro que remplace valores en excel por la suma de sus digitos y despues tener una opcion de dejarlos como estaban antes el rango de numeros es "A1;Z