別ブックの指定位置からDBのエクセルシートへコピーしたい

Question

前提・実現したいこと

ファイル名、シート名、データ量が作業毎に変わるエクセルファイルをツールの入っているエクセルシートに取り込みたい。
ファイル名とシート名は年度が入っているので毎年変わることは確定しています。

発生している問題・エラーメッセージ

シートをそのままVer1Bookにコピーしたいのですが、コピーした段階でエラーが発生してしまい動かなくなります。
シートの指定やブックの指定など変更して試していますがうまく動きません

実行時エラー”9”
インデックスが有効範囲にありません。

該当のソースコード

Sub データ取り込み2()


  Application.DisplayAlerts = False ' メッセージを非表示
  
  'Sheets2のデータを削除する
  'Sheets(2).Delete
  
  Dim OpenFileName As String, FileName As String
  OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xlsx")
  If OpenFileName <> "False" Then
        Workbooks.Open OpenFileName

  
  '取り込むエクセルシートを開く
  Workbooks("Microsoft Excelブック,*.xlsx").Sheets(1).Select.Copy _
     After:=Workbooks("Ver1.xlsm").Sheets(2)

  FileName = Dir(OpenFileName)
  
  Workbooks(FileName).Close

  Sheets(1).Activate
  
  Else
        MsgBox "データ取り込みがキャンセルされました"

    End If
  
End Sub

試したこと

    ’Workbooks.Open OpenFileName　　’非表示に変更

Workbooks(OpenFileName).Sheets(1).Select.Copy _
After:=Workbooks("Ver1.xlsm").Sheets(2)

Workbooks("OpenFileName").Sheets(1).Select.Copy _
After:=Workbooks("Ver1.xlsm").Sheets(2)

Workbooks("Microsoft Excelブック,*.xlsx").Sheets(1).Select.Copy _
After:=Workbooks("Ver1.xlsm").Sheets(2)

と指定のブック名がいけないのかと繰り返していますがどれも有効範囲エラーが出ます。

補足情報（FW/ツールのバージョンなど）

Excel2013

Answer 1

Ver1Book.xlsmに開いたBookの１つ目のシートをコピーする

Dim OpenFileName As String, FileName As String
OpenFileName = Application.GetOpenFileName("Microsoft Excelブック,*.xlsx")
If OpenFileName <> "False" Then
  Dim Wb As Workbook
  Set Wb = Workbooks.Open(OpenFileName)
    
  Wb.Sheets(1).Copy After:=ThisWorkbook.Sheets(1)
  Wb.Close
  Set Wb = Nothing
Else
  MsgBox "データ取り込みがキャンセルされました"
End If
ThisWorkbook.Sheets(1).Activate

Answer 2

取り消します。サンプルは誰かが修正してくれるでしょう。