Что я делаю не так?[/quot]


Sub Ìàêðîñ2()
Dim EndRowNum As Integer
Dim i As Integer, j As Integer
Dim kolumnArray() As String
j = 0
EndRowNum = ActiveCell.Parent.Cells(Rows.Count, 1).End(xlUp).Select 'Íàõîäèì ïîñëåäíóþ ñòðîêó ñ çàïîëíåííûì 1-ûì ñòîëáöîì
Columns("A:A").EntireColumn.Select

While i <> EndRowNum  '&#200;&#249;&#229;&#236; c &#239;&#229;&#240;&#226;&#238;&#233; &#228;&#238; &#239;&#238;&#241;&#235;&#229;&#228;&#237;&#229;&#233; &#241;&#242;&#240;&#238;&#234;&#232;
Cells.Find(What:="&#202;&#203;&#209;", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
        j = j + 1
  kolumnArray(j) = "insert into table1(field1) select '" + ActiveCell.Value + "'"
  MsgBox kolumnArray(j)
  i = ActiveCell.Row
 Wend



End Sub

...
' Нужно не делать Select, а получать номер строки, иначе выбраной становится последняя заполненная ячейка с столбце и 
последующий поиск ничего не находит и поэтому ругается
    EndRowNum = ActiveCell.Parent.Cells(Rows.Count, 1).End(xlUp).Row 'Находим последнюю строку с заполненным 1-ым 
столбцом
' Если делать Select найденой последней заполненной ячейке, то при выделении всего столбца - активная ячейка все равно 
остается
' последняя заполненная в столбце и поиск идет от неё и дальше вниз и ничего не находит и выдает ошибку
    Columns("A:A").EntireColumn.Select ' Выделяем весь столбец
' Поэтому если используется Select для последней заполненной ячейки, то после выделения столбца нужно переместить 
активность с
' последней ячейки, на первую в столбце.
   ==> Cells(1, 1).Activate 'Становимся на начало
....