всем утро доброе !

уважаемые форумчане прошу помощи .
есть excel файл . в нем организована форма заявки . написал макрос который следит за определенными ячейками и если они пустые тогда выделяет их желтым цветом если их заполнить то цвет ячейки становится белым . так же есть 3 выпадающих списка и если в выпадающем списке выбрать "Иное:"  тогда только незаполненная ячейка становится желтой . вроде бы все просто НО

1. иногда выскакивает ошибка Out of stack space
2 если раскомментировать строку Cells(35, 32) = Cells(9, 3) то при каждом изменении любой ячейки макрос начинает задумываться секунды на 3 .... с чего вдруг?! неужели так сложно просто скопировать данные из ячейки в ячейку

прошу так же подсказать как можно оптимизировать данный макрос ( для опыта ) . обязательно делать на каждую ячейку if или можно как то объединить наблюдаемые ячейки в один блок ?  

Уважаемые знатоки, прошу помощи!

необходимо в файле excel реализовать справочник автомобилей но штатными средствами excel а не макросом
пример , файла во вложении

смысл справочника следующий
сперва в выпадающем списке марку( причем не нужно выводить дубли а только уникальные значения) потом в зависимости от выбранной марки в следующем списке выбирается модель( так же уникальные значения) далее год(уникальные) потом мощность а последнее поле это стоимость ( просто поле а не выпадающий список ) и условие ввода в этом поле это диапазон между указанных мин и макс цены .

прошу помочь , пытаюсь сделать с помощью "проверка данных" но ничего не получается (

есть следующий макрос    
 
 
 
Private Sub CommandButton1_Click()  
Dim adr As String  
 
adr = TextBox1  
WebBrowser1.Navigate "http://1whois.ru/?url=" + adr  
 
 
End Sub  
Private Sub Form_Load()  
 
 
End Sub  
 
Private Sub CommandButton2_Click()  
 
Dim dl As String  
Dim kod As String  
 
 
 
 
 
Label1.Caption = WebBrowser1.Document.Body.innerhtml  
kod = Label1.Caption  
 
dl = Len(kod)  
 
For i = 1 To dl  
If (Mid(kod, i, 41) = "descr:          ") Then  
       
    For j = i To dl  
       If (Mid(kod, j, 1) = "<") Then  
           nazvanie = Mid(kod, i + 41, j - 1)  
       End If  
    Next j  
       
End If  
Next i  
MsgBox (nazvanie)  
 
End Sub  
 
Private Sub CommandButton3_Click()  
Worksheets.Item("Original").Activate  
  Range("a1:k300").Activate  
   Selection.ClearContents  
   Selection.Interior.ColorIndex = xlNone  
   Selection.Borders(xlDiagonalDown).LineStyle = xlNone  
   Selection.Borders(xlDiagonalUp).LineStyle = xlNone  
   Selection.Borders(xlEdgeLeft).LineStyle = xlNone  
   Selection.Borders(xlEdgeTop).LineStyle = xlNone  
   Selection.Borders(xlEdgeBottom).LineStyle = xlNone  
   Selection.Borders(xlEdgeRight).LineStyle = xlNone  
   Selection.Borders(xlInsideVertical).LineStyle = xlNone  
   Selection.Borders(xlInsideHorizontal).LineStyle = xlNone  
   Selection.Interior.ColorIndex = xlNone  
   Range("A1").Select  
End Sub  
 
Private Sub WebBrowser1_StatusTextChange(ByVal Text As String)  
 
End Sub  
Function Delay(Pause As Single)  
Dim Start As Single  
Start = Timer  
Do While Timer < Start + Pause  
DoEvents  
Loop  
End Function  
 
ошибка приведена на скрине ! никак не погу понять почему он ее выдает (    
смысл макроса такой есть ip адрес ручками вставляем его в поле(далее он будет брать из первого столбца по очереди из списка ip) по нажатию первой кнопки на форме он ищет в интернете инфу об этом ip далее берет код страницы и вырезает оттуда название организации которой принадлежит ip. вот тогда то и выдается ошибка (    
если у кого есть мысли помогите плз ее побороть и может как то модифицировать макрос

выкладываю файл в котором сделал все что мог .. в принципе все кроме поиска о котором прошу (    
на первой вкладке : вводится пара фамилий ... в текстбоксах вводится если фамилии нет еще в списке в сомбобоксе выбирается из списка если существует фамилия ! Кнопка ЗАПИСАТЬ добавляет фамилии из полей в соответствующие колонки ( текстбоксы имеют приоритет перед комбо)    
на второй вкладке : как раз и должен быть нужный мне поиск ( под кнопкой ПОИСК ВАРИАНТОВ расположен лэйбл3 в нем и должны выводится варианты ! пример запроса и ответов на него на самом листе справа от столбиков фамилий !  
ПОМОГИТЕ пожалуйста с этим самым поиском!!!