Macro for button won't transfer data to another sheet

Hello friends,

I am currently trying to write a macro for a button to automatically populate data from one sheet to another. Basically, guests attending this big event will receive a link and will be able to access the first worksheet. They enter the data and click the button at the bottom. The macro assigned to that button will then populate the guestlist. I have searched so many different codes and have ended up with this one. But it keeps coming up with an error. Can someone solve this for me:

Sub Copy()
 
   Dim BlankRow As Long
   BlankRow = Sheets("Guestlist").Range("B65536").End(xlUp).Row + 1
 
   Sheets("ITC Open Day Return Sheet").Range("D5").Value = Sheets("Guestlist").Range("E" & nextRow).Value
   Sheets("ITC Open Day Return Sheet").Range("D7").Value = Sheets("Guestlist").Range("F" & nextRow).Value
   Sheets("ITC Open Day Return Sheet").Range("D9").Value = Sheets("Guestlist").Range("C" & nextRow).Value
   Sheets("ITC Open Day Return Sheet").Range("F5").Value = Sheets("Guestlist").Range("B" & nextRow).Value
   Sheets("ITC Open Day Return Sheet").Range("F7").Value = Sheets("Guestlist").Range("D" & nextRow).Value
   Sheets("ITC Open Day Return Sheet").Range("D13").Value = Sheets("Guestlist").Range("G" & nextRow).Value
   Sheets("ITC Open Day Return Sheet").Range("D14").Value = Sheets("Guestlist").Range("H" & nextRow).Value
   Sheets("ITC Open Day Return Sheet").Range("D15").Value = Sheets("Guestlist").Range("I" & nextRow).Value
   Sheets("ITC Open Day Return Sheet").Range("D16").Value = Sheets("Guestlist").Range("J" & nextRow).Value
   Sheets("ITC Open Day Return Sheet").Range("D17").Value = Sheets("Guestlist").Range("K" & nextRow).Value
   Sheets("ITC Open Day Return Sheet").Range("D19").Value = Sheets("Guestlist").Range("L" & nextRow).Value
   Sheets("ITC Open Day Return Sheet").Range("D21").Value = Sheets("Guestlist").Range("M" & nextRow).Value
   Sheets("ITC Open Day Return Sheet").Range("D26").Value = Sheets("Guestlist").Range("N" & nextRow).Value
   Sheets("ITC Open Day Return Sheet").Range("D29").Value = Sheets("Guestlist").Range("O" & nextRow).Value
   Sheets("ITC Open Day Return Sheet").Range("D32").Value = Sheets("Guestlist").Range("P" & nextRow).Value
   Sheets("ITC Open Day Return Sheet").Range("F26").Value = Sheets("Guestlist").Range("Q" & nextRow).Value
   Sheets("ITC Open Day Return Sheet").Range("F29").Value = Sheets("Guestlist").Range("R" & nextRow).Value
   Sheets("ITC Open Day Return Sheet").Range("F32").Value = Sheets("Guestlist").Range("S" & nextRow).Value
   Sheets("ITC Open Day Return Sheet").Range("D36").Value = Sheets("Guestlist").Range("T" & nextRow).Value
   Sheets("ITC Open Day Return Sheet").Range("F36").Value = Sheets("Guestlist").Range("U" & nextRow).Value
 
   nextRow = Sheets("Feeding and Accommodation").Range("B65536").End(x1Up).Row + 1
   Sheets("ITC Open Day Return Sheet").Range("D9").Value = Sheets("Feeding and Accommodation").Range("C" & nextRow).Value
   Sheets("ITC Open Day Return Sheet").Range("F5").Value = Sheets("Feeding and Accommodation").Range("B" & nextRow).Value
   Sheets("ITC Open Day Return Sheet").Range("D44").Value = Sheets("Feeding and Accommodation").Range("E" & nextRow).Value
   Sheets("ITC Open Day Return Sheet").Range("D46").Value = Sheets("Feeding and Accommodation").Range("F" & nextRow).Value
   Sheets("ITC Open Day Return Sheet").Range("D48").Value = Sheets("Feeding and Accommodation").Range("G" & nextRow).Value
   Sheets("ITC Open Day Return Sheet").Range("D50").Value = Sheets("Feeding and Accommodation").Range("H" & nextRow).Value
   Sheets("ITC Open Day Return Sheet").Range("D52").Value = Sheets("Feeding and Accommodation").Range("I" & nextRow).Value
   Sheets("ITC Open Day Return Sheet").Range("D63").Value = Sheets("Feeding and Accommodation").Range("J" & nextRow).Value
   Sheets("ITC Open Day Return Sheet").Range("D68").Value = Sheets("Feeding and Accommodation").Range("K" & nextRow).Value
   Sheets("ITC Open Day Return Sheet").Range("D72").Value = Sheets("Feeding and Accommodation").Range("L" & nextRow).Value
 
 
End Sub