Convertir números positivos a negativos con una macro según condición

Te anexo la macro

Sub Negativos()
    For i = 1 To Range("G" & Rows.Count).End(xlUp).Row
        If UCase(Cells(i, "G").Value) = "A" Then
            Range("B" & i & ":E" & i).Value = Evaluate("-1 * " & Range("B" & i & ":E" & i).Address())
        End If
    Next
End Sub

[sal u dos

Este es el resultado de la macro

y esta es la macro

Sub CAMBIA_SIGNOS()
Set DATOS = Range("B1").CurrentRegion
With DATOS
    R = .Rows.Count: C = .Columns.Count
    For I = 1 To R
        LETRA = UCase(.Cells(I, C + 2)) = "A"
        If LETRA Then
            For J = 1 To C
                .Cells(I, J) = -.Cells(I, J)
            Next J
        End If
    Next I
End With
Set DATOS = Nothing
End Sub