Implementación de VBA Si A1 es igual a 1, entonces A2 es igual a 2
Sub tt()
Dim i
i = [a65536].End(3).Row
Para j = 1 a i
Si VBA.IsNumeric(Range("A" & j)) And Range("A" & j) <> "" Entonces
Range("C" & j)= Range("A" & j)-990
Fin si
Siguiente
End Sub
Pruébalo, sí ¿No es eso lo que quieres decir?