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

Макрос плюс ко всему работал более эффективно - он не проверял в цикле а заполнял первую строку таким образом

Sheets("Лист1").Select (лист откуда берём Файл1)
DialogSheets("Д1").Show
e1 = DialogSheets("Д1").EditBoxes(4).Text
Windows("Файл2" + e1 + ".xls").Activate
Sheets("Заполняемый лист").Select
Range("A2").Select
ActiveCell.FormulaR1C1 = "=[Файл1.xls]Лист1!RC"
Range("C2").Select
ActiveCell.FormulaR1C1 = "=[Файл1.xls]Лист1!R2C2"
Range("D2").Select
ActiveCell.FormulaR1C1 = "=[Файл1.xls]Лист1!R2C4"
Range("E2").Select
ActiveCell.FormulaR1C1 = "=[Файл1.xls]Лист1!R2C5"
.....
Range("A2").Select
Cells.Find(What:="$", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False) _
.Activate
Cells.Replace What:="$", Replacement:="", LookAt:=xlPart, SearchOrder:= _
xlByRows, MatchCase:=False

Rows("2:2").Select
Selection.AutoFill Destination:=Rows("2:1500"), Type:=xlFillDefault

и таким образом происходило правильное заполнение
первая строка (2-я) состояла из ссылок а последующие нет, но данные были верны, теперь на cells.find - вылетает - не может активизировать объект,
соотв после закоментирования find\replace все строки аналогичные первой...
Как сделать, подскажите пожалуйста?