How can I add sheets from an excel file to another?

Question

So I am trying to write a Macro for Excel, that adds 2 worksheets from an excel file to a new one.

Therefore, I try this:

Sub addfile()

Dim sheet1 As