Macro Excel para comprobar y descontar lotes

-Tengo el siguiente problema que no se como solucionar:

Al seleccionar la segunda línea del cuadro de lista que pone cantidad 6 me descuenta en la primera linea de la tabla "Existencia" y lo lo que quiero es que descuente de la que yo le indico el el cuadro de lista.

Os subía el archivo pero no veo donde se puede hacer esto.

Gracias de todas formas.

        For fila = 2 To 9000
        If Hoja3.Cells(fila, 2) = Hoja4.Cells(Final, 2) Then
            Existencia = Hoja3.Cells(fila, 7)
            Total = Existencia - Me.txt_Salida
            Hoja3.Cells(fila, 7) = Total
            Exit For
        End If
    Next