Metoden Select for Klassen Worksheet

Jeg har en timeseddel, som danner en rapport inde i et sheet.

Jeg ønsker at mit program skal kopierer oplysningerne fra dette ark.
Åbne en ny workbook og paste disse oplysninger ind i den nye workbook - gemme workbook, lukke workbook og gemme den første workbook og lukke denne også.

Det der står i ARK ("Registreringer") i første ark.
skulle så gerne være identisk med den workbook Projekttidsrapportering.xls som jeg åbner et andet sted.

men det fejler med
BUG:
Run-time error '1004':
Metoden Select for Klassen Worksheet mislykkedes

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

Den fulde streng er her:

Private Sub Registrer()

  Dim NæsteRække As Integer

  NæsteRække = Worksheets("Registreringer").Range("A1").CurrentRegion.Rows.Count + 1
  Besvarelsesnummer = NæsteRække - 1
 
 
  With Worksheets("Registreringer")
 
  .Cells(1, 2).Value = "Hvornår"
  .Cells(1, 2).Value = "Navn"
  .Cells(1, 3).Value = "Tiltag"
  .Cells(1, 4).Value = "Type"
  .Cells(1, 5).Value = "Antal timer"

       
  .Range("A1").Cells(NæsteRække, 1).Value = ComboBoxDato.Value
  .Range("A1").Cells(NæsteRække, 2).Value = Application.UserName
  .Range("A1").Cells(NæsteRække, 3).Value = cmbTiltag.Value
  .Range("A1").Cells(NæsteRække, 4).Value = cmbType.Value
  .Range("A1").Cells(NæsteRække, 5).Value = txtAntal.Value
         
    'det er denne string der giver mig udfordringer tror jeg
    Sheets("Registreringer").Select
    Range("A1").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    Selection.Copy
    Workbooks.Open Filename:="U:\Ros Erhverv DK\Planlægning\Ledelse\Projekttidsrapportering.xls"
    Range("A1").Select
    Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
    ActiveSheet.Paste
    ActiveWorkbook.Save
    ActiveWindow.Close
    ActiveWorkbook.Save
    ActiveWorkbook.Close
 
  End With
   
End Sub

Hvor går det galt?