Sub КопируемТолькоЗначения() 'В данном случае кода Книга2 по умолчанию должна быть уже открыта. Range("A1:D1").Select 'Выделяем небходимый диапазон ячеек Selection.Copy 'Копируем Windows("Книга2.xlsx").Activate 'Активируем уже открытую Книгу2 Range("A365:D365").Select 'Указываем диапзон куда нужно вставить Selection.PasteSpecial Paste:=xlPasteValues 'Вставляем значенияEnd Sub