Find empty cell in one spreadsheet and then paste information from another

[LePig]

Hi,

I have various suppliers who sell us various products.

Each supplier has its own sheet.

Our purchaser inputs the amount ordered and then the amount delivered on said day. Our grading team then inputs the amount out of spec. We then send reports out with the information.

I am trying to based upon if a parameter is met send information from one spreadsheet and paste it into another. So we can send out the reports in PDF format.

WeekNumRef = Sheets(LeleinValue).Range("E1")
BlankRow = Sheets("Data Form").Range("A65536").End(xlUp).Row + 1
Cells(BlankRow, 1).Select

I can find the last used cell but how do it paste the information from the cell required into the blank cell?

[p45cal]

Either:
Cells(BlankRow, 1).value = WeekNumRef
or:
Cells(BlankRow, 1).value = Sheets(LeleinValue).Range("E1")
or:
Sheets(LeleinValue).Range("E1").copy Cells(BlankRow, 1)