Kopier Range, åben anden workbook, sæt ind, gem og luk (&gem og luk)

Jeg har en udfordring med en kode.
Jeg har Workbook "A", der findes et sheet, der hedder "Registreringer".

I ark "Registreringer" skal der kopieres en range (alt i arket).

Projekttidsrapportering.xls" skal åbnes.

der skal sættes ind.
"Projekttidsrapportering.xls" skal gemmes og lukkes.
"A" skal gemmes og lukkes.

Lyder simpelt, men hvordan ser den rigtige kode ud?

Se evt. nedenstående.

'det er denne string der giver mig udfordringer tror jeg
   
    ActiveSheet.Range("A1").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy
    Workbooks.Open Filename:="U:\Ros Erhverv DK\Planlægning\Ledelse\Projekttidsrapportering.xls"
    Sheets("Rapport").Select
    Range("A1").Select
    'Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    ActiveSheet.Paste
    ActiveWorkbook.Save
    ActiveWindow.Close
    ActiveWorkbook.Save
    ActiveWorkbook.Close
 
  End With