Прога Электронные весы в Excel

С= ActiveCell.value
n=2
While worksheets("Продукты").cells
n=n+1
Wend

With Worksheets(1).Range("a1:a500")
    Set c = .Find(2, lookin:=xlValues)
    If Not c Is Nothing Then
        firstAddress = c.Address
        Do
            c.Value = 5
            Set c = .FindNext(c)
        Loop While Not c Is Nothing And c.Address <> firstAddress
    End If
End With

Private Sub ComboBox1_Change()
iCount = ComboBox1.ListIndex + 2
With Sheet4
    TextBox1.Value = .Columns(2).Rows(iCount).Value
    TextBox2.Value = .Columns(3).Rows(iCount).Value
    'TextBox3.Value = .Columns(4).Rows(iCount).Value
    'TextBox4.Value = .Columns(5).Rows(iCount).Value
    
End With
End Sub
 
Private Sub ComboBox5_Change()
 
End Sub
 
Private Sub CommandButton2_Click()
TextBox4.Text = (CInt(TextBox1.Text) / 1000) * CInt(TextBox3.Text)
End Sub
 
Private Sub CommandButton3_Click()
Unload Me
End Sub
 
Private Sub Frame2_Click()
 
End Sub
 
Private Sub TextBox4_Change()
 
 
 
End Sub
 
Private Sub UserForm_Initialize()
With Sheet4
     ComboBox1.RowSource = .Range(.Range("B2"), .Range("A65536").End(xlUp)).Address(External:=True)
End With
'ComboBox5.AddItem "шт"
'ComboBox5.AddItem "литр"
'ComboBox5.AddItem "компл"
'ComboBox5.AddItem "кг"
 
End Sub
Private Sub CommandButton1_Click()
UserForm2.Show
End Sub