åbne og kopiere

Jeg har starten af en nedenstående makro.:

Filename = InputBox("Indtast filnavn:", "Filnavn")
If Filename <> "" Then
Filename = Filename & ".XLS"
With ActiveSheet.QueryTables.Add(Connection:="EXCEL;H:\" & Filename, _
        Destination:=Range("A5"))



Jeg vil gerne at jeg vil hjælp af den kan åbne en excel (det skal være sådan at jeg kun skal skrive navnet på filen) og derefter kopiere som beskrevet her:

Fra filen der bliver hentet: kopier celle G2:h40 til den eksisterende fil, celle A2

kopier celle N2:n40 til celle C2

kopier celle S2:w40 til celle D2

Den fil jeg henter skl derefter lukkes ???