参考元:【VBA】セル範囲を配列に入力して出力【RangeとCellsの組み合わせ】
https://daitaideit.com/vba-range-cells/
ポイントとなるVBAコード
'配列に入力
a = Range("A1:C4")
a = Range(Cells(1, 1), Cells(4, 3))
a = Range("A1").CurrentRegion
'配列をセルに出力
Range("E1:G4") = a
Range(Cells(1, 5), Cells(4, 7)) = a
Range("E1").Resize(UBound(a, 1), UBound(a, 2)) = a
'セル範囲を転記
Range("E1:G4").Value = Range("A1:C4").Value
※Valueをつけないと転記できない