[okshef]

The Off, я сам не делал, попробуйте. Введите переменные, как вы их назвали

filename1 и filename2 »

и пропишите полный путь к файлу

Код:

Set filename1=x:\dir1\dir2\dir3\file1.xls
Set filename2=x:\dir4\dir5\dir6\file2.xls

А дальше "привяжите" к этому файлу рабочий лист, например, строчку

Код:

Worksheets(2).Range("a" & c.Row).Copy Worksheets(3).Range("a" & Worksheets(3).Cells.Rows.Count).End(xlUp)(2)

измените

Код:

filename1.Worksheets(2).Range("a" & c.Row).Copy filename2.Worksheets(3).Range("a" & filename2.Worksheets(3).Cells.Rows.Count).End(xlUp)(2)

Думаю, должно получиться. Только не могу точно сказать, должны ли быть файлы открыты.

Ох и тяжко вспоминать задачки почти годовалой давности