Имею макрос по вставке строк из одного файла ексел в другой.
Вот кусок кода

With Application.FileSearch
.Filename = "123"
If .Execute() Then

file = PathName + "123.xls"
Workbooks.Open Filename:=file
Windows("123.xls").Activate
Range("A4:AK6").Select
Selection.Copy
Windows("321.xls").Activate
Worksheets("Основная").Activate
Range("A4:AK6").Select
ActiveSheet.Paste
Columns("d:d").Select
Selection.FindNext(after:=ActiveCell).Select
Application.CutCopyMode = False
Workbooks("123.xls").Close
Else
MsgBox "....."
End If
End With


как передвинуть ActiveCell в начало следующей строки для вставки следующей последовательности строк из другого файла?

Спасибо, Артем, то что мне было нужно

И еще вопросик: при закрытии файла ексел после копирования выдается сообщение о том, что в буфере находится большой объем информации и предлагается сохранить эту информацию для других приложений. Как сделать, что бы это сообщение не появлялось?