Excelのコピペ自動化

Question

お恥ずかしいのですが

Excelファイル１のR2をコピーしExcelファイル2のA2へ貼り付け。
Excelファイル１のT2,V2,X2,Z2.......BA2をコピーしExcelファイル2のB2,B4,B6,B8.....へ貼り付け。
続いてExcelファイル１のU2,W2,Y2....CC2をコピーしExcelファイル2のB3,B5,B7,B9.....へ貼り付けの作業をマクロで組みたいのですがどなたか教えてください。

Answer 1

作業をマクロで組みたいのですがどなたか教えてください

Excelには「マクロの記録」というとても便利な機能があるので使用されてみては？
キーボード・マウスでExcelを操作したものをVBAとして記録してくれます。

(support.office.com)マクロ記録で作業を自動化する

Answer 2

丸投げは非推奨ですし、詳細が不明なのでざっくりサンプルを書いておきます。
尚、シート名の指定がなかったので一番左端のシートを対象にしています。

Dim bk1 As Workbook
Dim bk2 As Workbook
Dim sh1 As Worksheet
Dim sh2 As Worksheet

' ワークブックを開く
Set bk1 = Workbooks.Open("Excelファイル1のファイル名")
Set bk2 = Workbooks.Open("Excelファイル2のファイル名")

' 対象のワークシート
Set sh1 = bk1.Worksheets(1)
Set sh2 = bk1.Worksheets(2)

' コピー処理
sh2.Range("A2").Value = sh1.Range("R2").Value
sh2.Range("B2").Value = sh1.Range("T2").Value
...

' ワークブックを保存
bk2.Save

' ワークブックを閉じる
bk1.Close
bk2.Close