Esta macro fará isso:
Sub Macro1()
i = 0
num_items_to_copy = 3
Do While i < num_items_to_copy
Windows("Book2").Activate
Range("A1").Offset(i * 2, 0).Copy
Windows("FULL Catalogue.xlsx").Activate
Range("K3").Offset(i * 2, 0).Select
ActiveSheet.Paste
i = i + 1
Loop
End Sub
você precisa alterar num_items_to_copy = 3 para igualar o número real de itens a serem copiados.
Além disso, atualize o Windows ("FULL Catalogue.xlsx") para corresponder ao nome real da sua pasta de trabalho.
Para executar uma macro, pressione Alt-F11 para abrir a janela do Visual Basic. À esquerda está uma pasta iceon chamada Modules, clique com o botão direito e selecione insert module. Cole a macro na janela principal e, em seguida, pressione o botão verde de reprodução na parte superior.