あるブックの任意の範囲を別のブックの指定した箇所にコピペする その1

今日からVBAの勉強に本腰入れたいので、成果物を投稿します。

今回作成したのは
『同じフォルダ内にある「○○一覧.xlsx」の任意のシート内容をそれぞれ別のファイルに転記する』
です。
VBAのコードは同じフォルダ内に『検証用マクロ.xlsm』というファイルを用意してそこに記述していきます。
（これを今後勉強しながら改修していく予定です。）

商品マスタ

顧客マスタ

（左のデータを右に転記して保存したい）

コード

Sub tenki()
'○○一覧を開く
    Workbooks.Open ThisWorkbook.Path & "\○○一覧.xlsx"
'商品マスタに転記
    Worksheets("商品マスタ").Activate
    Cells(1, 1).Activate
    Worksheets("商品マスタ").UsedRange.Copy
    Workbooks.Open ThisWorkbook.Path & "\商品マスタYYMMDD.xlsx"
    Worksheets("データ").Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select
    ActiveWorkbook.Save
    ActiveWindow.Close
'顧客マスタに転記
    Worksheets("顧客マスタ").Activate
    Cells(1, 1).Activate
    Worksheets("顧客マスタ").UsedRange.Copy
    Workbooks.Open ThisWorkbook.Path & "\顧客マスタYYMMDD.xlsx"
    Worksheets("データ").Range("A1").Select
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A1").Select
    ActiveWorkbook.Save
    ActiveWindow.Close
'○○一覧を閉じる      
    ActiveWindow.Close
End Sub

うーん・・・もっとシンプルにできるはずですが、今の私ではこれが精一杯です！
マクロの記録ではブック名・シート名が登録されないので、そこに適切なものを入れて、いらない箇所を削除して編集しました。

・参考にした本
VBAエキスパート公式テキスト Excel VBA ベーシック
https://vbae.odyssey-com.co.jp/study/text.html

1か月後にはこのコードが恥ずかしくなるくらいに成長したいです。

（今日がQiita初投稿でした）