Macro que reemplace valores en excel

Necesito una macro que reemplace valores por el resultado de la suma de sus dígitos de cada celda y luego tener una opción para volver a dejar las celdas como estaban