Macro for button won't transfer data to another sheet

Originally Posted by xlnitwit

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

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?

Originally Posted by Richard Buttrey

Is a Data filter out of the question?

I have tried that but because of the way the form is set up, the information doesn't sit in subsequent rows. It is more the information is in individual cells. But I can see how this would be easier.