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?

[kev_]

You are selecting a cell with:

Cells(BlankRow, 1).Select

To copy the value from cell E1 in your other sheet to that cell (modify the range to suit your needs)

Sheets(LeleinValue).Range("E1").Copy ActiveCell

or without selecting

Sheets(LeleinValue).Range("E1").Copy Sheets("Data Form").Range("A65536").End(xlUp).Offset(1)

Unless your sheet name is a variable, I would expect it to be included in quote marks. Is LeleinValue a variable?


Why you are using 65536 rows when there are now over a million rows? Are you still using Excel 2003?

Range("A65536").End(xlUp)

How about:
Range("A" & Rows.Count).End(xlUp)

or
Range("A1048576").End(xlUp)