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

Unfortunately your post does not comply with Rule 1 of our Forum RULES. Your post title should accurately and concisely describe your problem, not your anticipated solution.

Use terms appropriate to a Google search. Poor thread titles, like Please Help, Urgent, Need Help, Formula Problem, Code Problem, and Need Advice will be addressed according to the OP's experience in the forum: If you have less than 10 posts, expect (and respond to) a request to change your thread title. If you have 10 or more posts, expect your post to be locked, so you can start a new thread with an appropriate title.

To change a Title go to your first post, click EDIT then Go Advanced and change your title, if 2 days have passed ask a moderator to do it for you.

(As this is your first post I'll add the tags for you but please note for the future

The fastest and most efficient way I know of doing this is to use a Data filter using whatever is the relevant criteria.

Have you considered a Pivot Table with Slicers to filter data which might be an altogether more elegant way of achieving your goal?

Hi,

You have a few issues there. First, you are using nextRow when you assigned a value to blankRow; second, you type x1up rather than xlUp; and third, it looks like you are sending the data the wrong way. I think your code should be

Sub Copy()

    Dim nextRow As Long
    Dim wsGuest As Worksheet, wsITC As Worksheet, wsFeeding As Worksheet
    Set wsGuest = Sheets("Guestlist")
    Set wsITC = Sheets("ITC Open Day Return Sheet")
    Set wsFeeding = Sheets("Feeding and Accommodation")

    With wsGuest
        nextRow = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
        .Range("E" & nextRow).Value = wsITC.Range("D5").Value
        .Range("F" & nextRow).Value = wsITC.Range("D7").Value
        .Range("C" & nextRow).Value = wsITC.Range("D9").Value
        .Range("B" & nextRow).Value = wsITC.Range("F5").Value
        .Range("D" & nextRow).Value = wsITC.Range("F7").Value
        .Range("G" & nextRow).Value = wsITC.Range("D13").Value
        .Range("H" & nextRow).Value = wsITC.Range("D14").Value
        .Range("I" & nextRow).Value = wsITC.Range("D15").Value
        .Range("J" & nextRow).Value = wsITC.Range("D16").Value
        .Range("K" & nextRow).Value = wsITC.Range("D17").Value
        .Range("L" & nextRow).Value = wsITC.Range("D19").Value
        .Range("M" & nextRow).Value = wsITC.Range("D21").Value
        .Range("N" & nextRow).Value = wsITC.Range("D26").Value
        .Range("O" & nextRow).Value = wsITC.Range("D29").Value
        .Range("P" & nextRow).Value = wsITC.Range("D32").Value
        .Range("Q" & nextRow).Value = wsITC.Range("F26").Value
        .Range("R" & nextRow).Value = wsITC.Range("F29").Value
        .Range("S" & nextRow).Value = wsITC.Range("F32").Value
        .Range("T" & nextRow).Value = wsITC.Range("D36").Value
        .Range("U" & nextRow).Value = wsITC.Range("F36").Value
    End With
    With wsFeeding
        nextRow = .Cells(.Rows.Count, "B").End(xlUp).Row + 1
        .Range("C" & nextRow).Value = wsITC.Range("D9").Value
        .Range("B" & nextRow).Value = wsITC.Range("F5").Value
        .Range("E" & nextRow).Value = wsITC.Range("D44").Value
        .Range("F" & nextRow).Value = wsITC.Range("D46").Value
        .Range("G" & nextRow).Value = wsITC.Range("D48").Value
        .Range("H" & nextRow).Value = wsITC.Range("D50").Value
        .Range("I" & nextRow).Value = wsITC.Range("D52").Value
        .Range("J" & nextRow).Value = wsITC.Range("D63").Value
        .Range("K" & nextRow).Value = wsITC.Range("D68").Value
        .Range("L" & nextRow).Value = wsITC.Range("D72").Value
    End With

End Sub

Originally Posted by titchroberts

Thanks, it doesn't come up with a bug - but then it also doesn't transfer the data to the other worksheets. Any other suggestions on what it can be?

Is a Data filter out of the question?

Assuming that there is data in the relevant cells on the "ITC Open Day Return Sheet" sheet, the data must be going somewhere on the other two sheets- I suggest you try scrolling down on those sheets to see if you can locate it.