Спасибо!!! :)... Убирать обновление экрана не стал т.к. не понял что мне с этим кодом делать... Да мне окно -> скрыть вполне хватит...
Вот код макроса:
1.
2.
3.
4.
5.
6.
7.
Sub KopTabl()
NameBD = "База.xls"
NameOF = "Оформление заказа.xls"
Application.Workbooks(NameBD).Worksheets("ОФ.З-ЗА").Rows("13:20").Copy
Application.Workbooks(NameOF).Worksheets("ОФ.З-ЗА").Range("ПоследняяСтрока").Insert
Application.CutCopyMode = False
End Sub
И ещё один вопрос по коду: Как мне в 4-й строке кода, цифры 13 и 20 заменить на переменные (например a и b)... пробовал так:
1.
2.
3.
а = 13
b = 20
Application.Workbooks(NameBD).Worksheets("ОФ.З-ЗА").Rows("a:b").Copy
Ничего не получилось... (Переменные делал как Integer и как Variant)...
