Åbn fil, kopiere indhold ind i eksisterende fil via makro

Jeg har lavet følgende userform, som definere filens (Fil1) navn og placering på serveren.

Men den skulle også åbne en fil (Fil2), hvis indhold skal kopieres ind i den første fil. Dette skal ske via at brugeren får dialogboksen 'Åbn fil' op i rette bibliotek (valgt udfra Fil1's placering), og blot skal vælge filen.
Efter valg af fil - skal makroen kopiere indholdet ind, samt lukke filen (Fil2) igen, således at brugeren ender tilbage med den første fil (Fil1) åben - igen.

Se nedenfor

Private Sub commandoknap_Click()
    Worksheets("Indtastning").Range("Finnr") = TxtFinansnr.Value
    Worksheets("Indtastning").Range("Bilagsnr") = TxtBilagsnr.Value
    Worksheets("Indtastning").Range("dato") = TxtDato.Value
    AfdOpl.Hide
    Filnavn1 = "" & Range("Filnavn").Value & ".xls"
    ActiveWorkbook.SaveAs Filename:=Filnavn1, FileFormat:=xlNormal
    Filnavn2 = Application.GetOpenFilename
    Workbooks.Open Filnavn2
    Sheets("Ark1").Select
    Cells.Sort Key1:=Range("C2"), Order1:=xlAscending, Header:=xlYes, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
    Cells.Copy
    Windows(Filnavn1).Activate
    Sheets("Opl").Range("A1").Paste
    Windows(Filnavn2).Save
    Windows(Filnavn2).Close
    Windows(Filnavn1).Activate
    Sheets("Indtastning").Select
End Sub

Håber, at én kan hjælpe.