Como reemplazar una fórmula por una Macro

Ayuda para reemplazar la fórmula del cuadro adjunto, por una macro que ejecute lo mismo.