Variables para varios comboboxs relacionado con textboxs que ejecutan la sustracción de cantidad de artículos

[bfredmax]

Hola a todos, es mi primer tema en el foro.
En el Libro1 tiene un formulario que simula una factura, el cual, en la columna “Código” del artículo posee varios Combos.
El usuario al seleccionar el primer combo (ComboBxCod1), coloca una cantidad X en la columna  Cantidad (TextBxCant1) que al momento de “Guardar”, me resta al saldo disponible de la columna “Cantidad” hoja “ARTICULOS” del Libro2, así que de esa manera arroja el resultado efectuado por el código de la macro que adjunté, hasta este punto funciona bien.
El problema es: los otros combos y no sé cuál es la instrucción para estas variables que esté relacionado con varios textboxs para poder restar la cantidad de artículos al libro2 de forma automática, por ejemplo:
ComboBxCod1 --> TextBxCant1
ComboBxCod2 --> TextBxCant2
ComboBxCod3 --> TextBxCant3
ComboBxCod4 --> TextBxCant4
El siguiente código solo funciona para el ComboBxCod1:
 

Private Sub ButtonGuardar()
Application.ScreenUpdating = False

 

Set h1 = Workbooks("Libro2.xlsm").Sheets("ARTICULOS")

 

Set r = h1.Columns("A")

Set b = r.Find(ComboBxCod1, lookat:=xlWhole)

If Not b Is Nothing Then

 

h1.Cells(b.Row, "J") = h1.Cells(b.Row, "J") - CDbl(TextBxCant1)

End If

Workbooks("libro1.xlsm").Activate

Sheets("INICIO-FACTURAR").Select

End Sub

De igual forma, adjunto un archivo de muestra para más detalles.
De antemano, muchas gracias.
Saludos!

 

combos.rar