Excel скопировать диапазон ячеек в другую книгу

Question

В первой рабочей книге после фильтрации всех ячеек мне необходимо скопировать первые 20 строк в другую рабочую книгу.

Это мой код, но я не знаю, как заставить его скопировать первые 20 строк:

Range("AN2:AP1000").Select
Range("A2:A1000").Select
Selection.Copy
Windows("Workbook2").Activate
Range("O15:Q35").Select
Range("N15:N35").Select
ActiveSheet.Paste

У меня есть 2 диапазона, потому что данные для копирования находятся в 2 разных столбцах,Это таблица для копирования (первые 20 строк данных): таблица

Answer 1

Никогда не используйте выбор или активацию - вместо этого используйте переменные диапазона

dim Source1 as range
dim source2 as range
dim dest1 as range
dim dest2 as range
set source1 = Range("A2:A1000").SpecialCells(xlCellTypeVisible)
set source2 = Range("AN2:AP1000").SpecialCells(xlCellTypeVisible)
with Workbooks("Workbook2").worksheets(1)  'i assume first sheet
     set dest1 = .Range("O15") 
     set dest2 = .Range("N15")
end with
source1.copy dest1
source2.copy dest2