Macro para reducir inventario de un listbox

[Hola. Intenta aportar más datos o alguna imagen

cuando ingreso datos al userform 

al dar clic en guardar las cantidades de los productos que tengo ahi 

los reste en la tabla de existencia

pregunto: tengo que hacer algo así? 

Ultimaexi = Worksheets("Inventario").UsedRange.Row - 1 + Worksheets("Inventario").UsedRange.Rows.Count

For m = 6 To Ultimaexi

For n = Me.lstpedido.ListCount To 1 Step -1

If m = n Then

existencia = Worksheets("Inventario").Cells(m, 5)

cantpro = Me.lstpedido.List(Me.lstpedido.ListCount - n, 2)

nuevexis = existencia - cantpro

Worksheets("Inventario").Cells(m, 5) = nuevexis

End If

Next
Next