Поиск значений по заданному столбцу - VBA

Формулировка задачи:

Здравствуйте, нужна помощь. Есть макрос который при введении в него 13 символов перескакивает на строчку в низ. Как его видоизменить, что он искал эти введённые значения в заданном столбике. Иными словами есть база из 200 000 штрих кодов, нужно что б макрос находил введный штрих код и напротив в ячейке прибавлял +1. Заранее спасибо

                    Листинг программы
                
 
                        
                          
                    
Private Sub TextBox1_Change()
    If bNonEvents Then Exit Sub
    If TextBox1.TextLength = 13 Then
        ActiveCell.Value = TextBox1.Value
        ActiveCell.Offset(1).Select
        TextBox1.Value = ""
    End If
End Sub

Решение задачи: «Поиск значений по заданному столбцу»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub TextBox1_Change()
    If TextBox1.TextLength = 13 Then
       Dim iCell As Range
       Set iCell = Range("A:A").Find(TextBox1, , xlValues, xlWhole)
       If Not iCell Is Nothing Then
          iCell.Activate 'Application.Goto iCell, True
          'Если в строке есть и другая информация, без
          'которой пользователь прожить не в состоянии
          iCell(1, 2) = iCell(1, 2) + 1
       Else
          TextBox1 = ""
       End If
    End If
End Sub