Utilizar un archivo de Excel descargado de internet, modificando las macros que contiene

Hola sabes encontré por internet un libro de excel donde puedo llevar exelentemente bien mi stock, pero lu nico que solo trae para registrar 6 productos y yo quiero ingresar como 1000, ya que coniene un macro, la verdad es complicado explicarlo, pero esto es lo que trae:
En la hoja de nombre parte viene este código:
Private Sub CommandButton1_Click()
Call stock
End Sub
Y en el modulo1 me aparece esto tal como esta :
Sub stock()
'Aqui se declaran las variables a usarse
Dim codigo As Integer, cantidad As Integer, stockantiguo As Integer
Dim tipo As String, producto As String
'Revisamos que los campos esten llenos, sino se envia un msj y finaliza la macro
If Range("e4").Value = Empty Or Range("e7").Value = Empty Or Range("e8").Value = Empty Then
MsgBox prompt:="Ud. Esta dejando campos vacios", Buttons:=vbOKOnly, Title:="Llene todos los campos"
Exit Sub
End If
'Le damos valores a las variables
codigo = Range("e4").Value
cantidad = Range("e7").Value
tipo = Range("e8").Value
'Comienza la accion. Vamos a la otra hoja
'Revisamos las celdas con un bucle (do while-loop) para compararlas con
'las variables, para encontrar coincidencias
Sheets("Datos").Select
Range("a3").Select
Do While ActiveCell.Value <> Empty
'Si coinciden en codigo y tipo (entrada) aumenta el stock (+)
If ActiveCell.Value = codigo And tipo = "Entrada" Then
ActiveCell.Offset(0, 1).Select
producto = ActiveCell.Value
ActiveCell.Offset(0, 2).Select
stockantiguo = ActiveCell.Value
ActiveCell.Value = ActiveCell.Value + cantidad
MsgBox prompt:="Su stock de " & producto & " a sido actualizado" & Chr(13) & "de " & stockantiguo & " a " & ActiveCell.Value, Buttons:=vbOKOnly, Title:="Stock actualizado"
Sheets("partes").Select
Range("e4,e7,e8").ClearContents
Range("e4").Select
Exit Sub
End If
'Si coinciden en codigo y tipo (salida) decrece el stock (-)
If ActiveCell.Value = codigo And tipo = "Salida" Then
ActiveCell.Offset(0, 1).Select
producto = ActiveCell.Value
ActiveCell.Offset(0, 2).Select
stockantiguo = ActiveCell.Value
ActiveCell.Value = ActiveCell.Value - cantidad
MsgBox prompt:="Su stock de " & producto & " a sido actualizado" & Chr(13) & "de " & stockantiguo & " a " & ActiveCell.Value, Buttons:=vbOKOnly, Title:="Stock actualizado"
Sheets("partes").Select
Range("e4,e7,e8").ClearContents
Exit Sub
End If
'si al decrecer el stock, es menor a 0 (cero), nos avisa y deja el stock como estaba
If ActiveCell.Value < 0 Then
ActiveCell.Value = ActiveCell.Value + cantidad
MsgBox prompt:="Hay menos productos de los que solicita", Buttons:=vbOKOnly, Title:="Stock menor"
MsgBox prompt:="Le recordamos que su stock de " & producto & Chr(13) & "es de " & ActiveCell.Value, Buttons:=vbOKOnly, Title:="Stock actual"
End If
ActiveCell.Offset(1, 0).Select
Loop
'volvemos a la hoja de los partes y limpiamos las celdas
Sheets("partes").Select
Range("e4,e7,e8").ClearContents
Range("e4").Select
End Sub
Esta es la planilla que sale en la hoja Datos
Código descripción medida stock
1 Leche Tarros 1
2 Harina Kilo 50
3 Huevos Unidades 10
4 Azúcar Kilo 50
5 Yogur Litro 45
6 Sal Kilo 1
Como usted ve solo salen 6 productos y yo le agrego más códigos copiando celda pero no me aparece en la hoja Partes, como puedo hacerlo para que aparezcan más códigos gran Maestro.te agradecería bastante tu gran ayuda