Боги Excel'я, добрый вечер!  
Обычно обходился форумами... или примерами planetaexcel. Но тут ситуация другая, уже несколько дней застопорился (((  
 
Суть в следующем:  
Есть файл (прилагаю),    
- имеется лист "file_KT" грубо говоря это БД с информацией.  
- имеется еще лист "ВЫБОР", в нем выпадающий списки (пока один, потом будет больше).  
Выпадающий список (ComboBox1) должен выгрузить информацию с условиями, все республики и области РФ в листе "file_KT" где столбцы D = 000 E = 000 F = 000 и G = 00, для этого прописал макрос считает кол-во строк и выгружает список удовл. данным условиям.    
 
Private Sub ComboBox1_Click()  
'ComboBox1.Clear  
Dim obl As Object  
Dim Ar() As String  
 
Set obl = Sheets("file_KT").Range("A1").CurrentRegion  
kol_str = obl.Rows.Count    
j = 0  
k = 0  
ReDim Ar(1 To kol_str)  
 
For i = 1 To kol_str  
If Sheets("file_KT").Cells(i, 4) = "000" And Sheets("file_KT").Cells(i, 5) = "000" And Sheets("file_KT").Cells(i, 6) = "000" And Sheets("file_KT").Cells(i, 7) = "00" Then    
ComboBox1.AddItem Sheets("file_KT").Cells(i, 1)  
  j = j + 1  
End If  
Next i  
End Sub  
 
Все бы ничего, но это все начинает работать когда меняешь в коде 'ComboBox1.Clear, а именно убираешь ' и запускаешь Run Sub (f5).    
По другому отказывается работать, если убрать ' сохранить и перезапустить эффекта нет, так же пробовал через Workbook_Open(), так же постигла неудача.  
 
Помогите плиииз......!!! :)  Очень надо)        
 
P.S. Не исключаю, макрос мог написать через заднее место. Только учусь, прошу не судить строго, а помочь советом.