Convertir positivos en negativos dada una condición.

Hace un par de días me llegó al correo un problema curioso, y aunque me considero un mero aprendiz en temas de programación VBA, sin embargo, decidí analizar la consulta del lector. En ella pedía ayuda para facilitar la introducción de datos en una plantilla, distinguiendo valores positivos o negativos, condicionando el signo del número al valor de otra celda.
Describía el usuario:

...Supongamos que en la columna A de una hoja tengo los siguientes titulos de filas: A2: Pagos por intereses, A3: Cobros por dividendos, A4: Pagos a proveedores, A5: Cobros por Vtas Contado, A6: Cobros por Vtas. Cta.Cte., A7:Pagos por prestamos En la fila 1 tengo los siguientes titulos de columnas: B1: Enero, C1: Febrero, D1: Marzo, E1: Abril Luego las celdas del rango B2:E7 se cargaran con datos numericos respectivamente Hasta aca todo bien, pero si ven el cuadro que se armo tenemos 3 celdas que contienen la palabra "pagos" y tres celdas que contienen la palabra "cobros". Lo que quiero hacer es que a medida que se carguen los datos vayan quedando como positivos o negativos segun lo que indiquen las celdas A2, A3, A4, A5, A6 y A7 en su interior. La formula o macro deberá detectar, identificar o buscar la palabra "pagos" dentro de la frase de la celda A2 y si es cierto entonces el numero que se cargó en la celda B2 transformarlo en negativo. Si dentro de la celda no se encuentra la palabra "pagos" entonces dejarlo como positivo...

Para facilitar el trabajo del desarrollo de la macro, incluiremos una nueva columna en la que nos indique si el concepto de las filas corresponde a pagos 'P' o a cobros 'C':

Desarrollaré unas líneas de VBA donde se restrinja, condicionado al valor de las celdas de la columna A, el valor introducido ('P' o 'C').

Para ello abrimos el Editor de Visual Basic(Alt+F11), y nos dirigimos a la ventana del Explorador de proyectos, haciendo click en la Hoja donde queramos incluir esta funcionalidad, en mi caso la Hoja1, y en la ventana de código de esta Hoja escribiremos:

'para convertir números positivos en negativos automáticamente
Private Sub Worksheet_change(ByVal Target As Range)
Static celda_activa As Integer
On Error Resume Next
    If Cells(Target.Row, 1) = "P" And Cells(Target.Row, Target.Column).Value > 0 Then
       Cells(Target.Row, Target.Column).Value = 
Cells(Target.Row,Target.Column).Formula * (-1)
     End If
End Sub

Con lo que he conseguido lo que se pretendía, esto es, cada vez que se introudzca un valor en la Hoja1 y en la primera columna exista un valor igual a 'P', el número se convertirá en negativo.