他ワークブックのシートを最後尾にコピー

Dim wb As Workbook, wsh As Worksheet

Set wb = Workbooks(file_name)
Set wsh = wb.Sheets(1) 'シート1枚目

'同じ名前のシートがあっても「シート名(2)」とかになってコピーされる。
wsh.Copy After:=ThisWorkbook.Worksheets(ThisWorkbook.Worksheets.Count)

'終了処理
wb.Close 'ファイルを閉じる。
Set wsh = Nothing
Set wb = Nothing

※そのままでは動かないと思うので、試行錯誤してください。