Добрый день!

я бы добавил кнопку мол найти код
Пользователь вводит код и нажимает найти
и тогда он заполняет.

Private Sub btnFind_Click()
Dim i%
Dim intRow As Integer

With Worksheets("Data Table")
intRow = .Cells(Rows.Count, 1).End(xlUp).Row - 5 'Считаем сколько строк в списке где будем искать

For i = 5 To intRow ' заупускаем счётчик начиная со значения 5 и до конечной строки
If formField1 = .Cells(i, 1) Then
formField2 = .Cells(i, 2)
formField3 = .Cells(i, 3)
End If
Next i
End With
End Sub

Кросс:
http://www.programmersforum.ru/showthread.php?t=241553
На кибере тоже. Очень хитрые.

Это был эвфемизм.

Ссылки обязательно будут, как только тема сдвинется с места. А пока приходится привлекать как больше внимания.
На форумы вкусы у всех разные. А мне важен результат.