В Exel Перенести Ряд с одной страницы на другую.

Activate Точно отпадает.
Прикинь! Один запрос на 500 записей.
500 раз визуально прыгнуть из одного окна в другое.
А Select не работает.
Мне надо прописать в work(list1)
А прыгать в Base(list2)

Private Sub CommandButton3_Click()
Worksheets("Base").Select
Worksheets("Base").Range(Cells(2, 1), Cells(2, 14)).Copy
Worksheets("Work").Select
Worksheets("Work").Range(Cells(31, 1), Cells(31, 14)).PasteSpecial
End Sub
P(