Voorraad excel

[gomair]

Ik heb een probleem met voorraad Excel .
Wanneer ik getal invul zoals bij regel 2B en klik op "verwerken" (werkt 't goed), zo wil ik dit ook bij 3B, 4B,5B etc. Lijst is veel langer dan in bijlage.
gaat tot regel 50.
Hoe pas ik knop "verwerken" aan.

Wie helpt me ( ben niet zo handig in Excel)

 

[HSV]

Private Sub CommandButton1_Click()
Dim cl As Range
 For Each cl In Columns(2).SpecialCells(2)
   If IsNumeric(cl) Then
    cl.Offset(, -1) = cl.Offset(, -1) - cl
    cl.Offset(, 1) = cl.Offset(, 1) + cl
    cl.ClearContents
  End If
 Next cl
End Sub

 

[gomair]

Misschien stom, maar waar en hoe zet ik deze code in het document. Hoe doe ik dat!

 

[HSV]

Je had er al een code in staan, dus dacht ik dat je dat wel wist.
Druk Alt+F11.
Dubbelklik aan de linkerzijde op Blad1 (blad1).
In het grote witte vlak zet je de code.
Verwijder de oude die er staat.