Como restar la cantidad de productos realizados por una venta?

Esta sería la macro que luego de registrar la venta descuente del stock en hoja Producto.

Como no tenés un código de producto se recorre la col en busca de la descripción del producto.

Private Sub btn_cobrar_Click()
'ajustada x Elsamatilde
    Dim Fila As Double
    Dim Final As Double
    Dim i As Integer
    Dim x As Integer
'encontrar primer fila libre en hoja VENTAS
    Final = Sheets("VENTAS").Range("A" & Rows.Count).End(xlUp).Row + 1
'pase de datos a hoja VENTAS
    For i = 0 To ListBox1.ListCount - 1
    Sheets("VENTAS").Cells(Final, 1) = ListBox1.List(i, 0)
    Sheets("VENTAS").Cells(Final, 2) = ListBox1.List(i, 1)
    Sheets("VENTAS").Cells(Final, 3) = CDbl(ListBox1.List(i, 2))
    Sheets("VENTAS").Cells(Final, 4) = Date
    Final = Final + 1
'actualizar Stock de productos
    Set hop = Sheets("PRODUCTOS")
'recorre col A para encontrar el producto
    For x = 4 To hop.Range("A" & Rows.Count).End(xlUp).Row
    If ListBox1.List(i, 0) = hop.Cells(x, 1) Then
        hop.Cells(x, 2) = hop.Cells(x, 2) - ListBox1.List(i, 1)
        Exit For
    End If
    Next x
    Next i
'cierra el form
    Unload Me
End Sub

Te devuelvo el libro con otros detalles.