Find Last Row & Paste

[JezLisle]

I have this code which works great as it will copy from another workbook and paste the data into the relevant Cell.

How is it possible to paste a data set if that cell is not blank, but look for the next blank cell and paste.

eg Cell C5 is not blank and each Cell till C15 is also not blank but Cell C16 is blank I want to paste there. How can that be done?

Please Login or Register  to view this content.

[ravishankar]

Hi
try altering these 2 lines of code

Please Login or Register  to view this content.

Ravi

[JezLisle]

Thanks for that, I have tried it, and it works but the problem is that it leaves a row between whats already there and the new dataset. If I take use the line ThisWorkbook.Sheets("Rota").Range("C" & Cells(1000, 3).End(xlUp).Row) it will then paste the data set in the correct row, but if I add another dataset after that it seems to delete the older set and replace with the new loaded in set. why would it do this? I just want it to again find the last row and paste the data set.

Please Login or Register  to view this content.

[DonkeyOte]

Remember to Release objects prior to ending routine (ie wherever you Set x = ... you should subsequently Set x = Nothing ....) ... try the below adapation.

Please Login or Register  to view this content.

[JezLisle]

RocknRoll, thats worked just how I was looking for

Once again thanks!! :D