Como descontar un stock de una hoja a otra?

[leorof]

hola que tal lo que pasa es que tengo una plantilla de punto de venta y todo iva bien pero cuando registre muchos productos se descontavan pero no el producto con el codigo necesito una funcion o macro para descontar el producto esta es mi plantilla espero y me puedan ayudar esta es la funcion.

Sub Guardar_ventas()

Range("Información!C" & Range("R6")).Value = Range("Información!C" & Range("R6")) - Range("G7")

Sheets("Resultados").Visible = True

Sheets("Resultados").Select

Range("A2").Select

Do While ActiveCell.Value <> ""

ActiveCell.Offset(1, 0).Select

Loop

ActiveCell.Offset(0, 0).Value = Range("Ventas!l1")

ActiveCell.Offset(0, 1).Value = Range("Ventas!l2")

ActiveCell.Offset(0, 2).Value = Range("Ventas!l3")

ActiveCell.Offset(0, 3).Value = Range("Ventas!i1")

ActiveCell.Offset(0, 4).Value = Range("Ventas!E7")

ActiveCell.Offset(0, 5).Value = Range("Ventas!f7")

ActiveCell.Offset(0, 6).Value = Range("Ventas!g7")

ActiveCell.Offset(0, 7).Value = Range("Ventas!h7")

ActiveCell.Offset(0, 8).Value = Range("Ventas!k2")

ActiveCell.Offset(0, 9).Value = Range("Ventas!f2")

Sheets("Ventas").Select

MsgBox "La información de esta venta ha sido almacenada exitosamente", vbInformation, "Venta registrada"

Sheets("Resultados").Visible = False

Sheets("Factura").Visible = True

Sheets("Factura").Select

Range("A6").Select

Do While ActiveCell.Value <> ""

ActiveCell.Offset(1, 0).Select

Loop

ActiveCell.Offset(0, 0).Value = Range("Ventas!f7")

ActiveCell.Offset(0, 1).Value = Range("Ventas!g7")

ActiveCell.Offset(0, 2).Value = Range("Ventas!h7")

Sheets("Ventas").Select

Dim intRespuesta As Integer

intRespuesta = MsgBox("Se ha añadido el articulo a la factura de ventas, ¿desea visualizar la factura?", vbQuestion + vbYesNo, "Visualización de factura")

If intRespuesta = 6 Then

Range("i1").Value = Range("i1") + 1

Sheets("Factura").Visible = True

Sheets("Factura").Select

Else

Sheets("Factura").Visible = False

MsgBox "Para continuar con la factura, agregue otro artículo"

End If

End Sub

[Armando Montes]

Hola, sera mas facil responder si subes tu libro con el codigo incluido, gracias.

[leorof]

hola que tal si es lo que tenia pensado pero no lo puedo subir porque dice que es muy pesado, pesa 1mb