Есть задача - находить из списка в экселе(Лист1) по определённым критериям записи(2 ячейки, всего - 7) и если критерии, указанные в комбобоксах совпадают, копировать 7 ячеек каждой строки на Лист2 (сколько найденных записей - столько и копируется строк). Вот код, но он не работает... Хотя вроде правильно написал... :

Set rng1 = Worksheets("lst1").Range("Ci:Ii")
Set rng2 = Worksheets("lst2").Range("Ai:Ii")

For i = 1 To 500
Prizv = Cells(i, 3)
Imya = Cells(i, 4)
Pobat = Cells(i, 5)
Posada = Cells(i, 6)
Den = Cells(i, 7)
Misyac = Cells(i, 8)
Rik = Cells(i, 9)


If Den = ComboBox1.Text And Misyac = ComboBox2.Text Then _
rng1.Copy Destination:=rng2



Next i

Что я не правильно делаю?

неужели никто ничего не подскажет??? Намекните хотябы