Excel VBA 別エクセルブックを開いてシートをVBA実行Bookにコピーする 

    Dim ObjOpenBook       As Object
    Dim StrSheetName      As String
    Dim StrOpenFilePath   As String

    StrOpenFilePath = "C:\Data\データ.xlsx"

    'ファイルを開く
    Set ObjOpenBook = Workbooks.Open(StrOpenFilePath)
    
    'シートをコピー
    StrSheetName = ObjOpenBook.Worksheets(1).Name 'コピーするシートの指定
    ObjOpenBook.Worksheets(StrSheetName).Copy_
      After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)
    
    ' -----------------------------------------------------------------
    ' - 処理
    ' -----------------------------------------------------------------
        
    'ファイル閉じる。
    Workbooks(ObjOpenBook.Name).Close

• Before 指定した位置の前にコピー
  Before:=ThisWorkbook.Worksheets(1)

• After 指定した位置の後にコピー
  After:=ThisWorkbook.Worksheets(1)

＊ThisWorkbook.Worksheets(1)　👉１はシート名を指定することも可能です。

• シート最後にコピー
  After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)