Suma y resta en una misma celda

Para Dante Amor.

Hola Muchas gracias por su solución anterior, le explico lo que quiero hacer, tengo un almacén y quiero tener un control de los productos que ingresan y los que vendo, hasta hoy lo hago una planilla por producto así puedo ir anotando en cada fila los ingresos, salidas y totales pero de esta forma se me genera mucha información y al final pierdo el real control. Por ello requiero hacerlo en una sola planilla y cada fila será asignada a un producto y en las columnas las cantidades de la siguiente forma: Una columna D para acumular el total de los productos ingresados en una columna E y dos columnas mas F y G, que en F se vaya acumulando lo ingresado en G (hasta aquí su solución funcionó perfectamente) finalmente también requiero que lo de G se vaya restando en D y eso es lo que quiero que me ayude ahora. Muchas gracias por su ayuda, le adjunto copia de la solución que me envió anteriormente:

Private Sub Worksheet_Change(ByVal Target As Range)

'Por.Dante Amor

    If Not Intersect(Target, Range("E:E")) Is Nothing Then

        Application.EnableEvents = False

        Target.Value = Target.Value + Range("D" & Target.Row).Value

        Range("D" & Target.Row).Value = Target.Value

        Application.EnableEvents = True

    End If

End Sub