excelマクロ 他ブックからセルをコピーする

excelのマクロを必要にせまられつくってみますた。。

別ブックからある範囲をコピーして、ブックに貼り付けるマクロ

Sub コピーマクロ() 'セルのコピー関数 Dim book1 As Workbook 'Workbooks.Open "Book2.xlsx" Set book2 = Workbooks("Book2.xlsx") Set book1 = Workbooks("Book1.xlsx") 'コピー先にインサートして列を増やす book1.Worksheets("Sheet1").Range("D4:D400").Insert 'コピー元をクリップボードにコピー book2.Worksheets("Sheet1").Range("D4:D19").Copy 'コピー先の範囲を指定する book1.Worksheets("Sheet1").Range("D4:D19").Select '指定範囲に貼り付ける ActiveSheet.Paste End Sub