Обновление данных в таблице - VBA

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

Здравствуйте! На Лист "ЕИИС" висит база из номеров ("A") и наименования ("B"). На лист "Сканер" падают номера в колонку ("A"). Есть кнопка которая обновляет лист "Сканер" и подтягивает с базы наименования в колонку ("B"). Как доработать кнопку, что бы не приходилось каждый раз нажимать кнопку, а наименование подтягивалось автоматически при появлении записи в колонке ("A")? Прошу помочь.. Private Sub CommandButton4_Click() sschet = Sheets("Сканер").Range("C1") sschet2 = Sheets("ЕИИС").Range("Y1") For I = 2 To sschet For i2 = 2 To sschet2 If Sheets("Сканер").Cells(I, 1) = Sheets("ЕИИС").Cells(i2, 2) Then Sheets("Сканер").Cells(I, 2) = Sheets("ЕИИС").Cells(i2, 3) End If Next i2 Next I End Sub

Решение задачи: «Обновление данных в таблице»

textual
                            Листинг программы 
                        

                            Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 1 Then Exit Sub
Application.EnableEvents = False
Set x = Sheets("ЕИИС").Columns(1).Find(Target, , , 1)
If Not x Is Nothing Then
Target.Offset(, 1) = x.Offset(, 1).Value
Else
Target.Offset(, 1) = "Номер отсутствует"
End If
Application.EnableEvents = True
End Sub
                        