Search for criteria in a column, cut and paste row to next empty row in new sheet

[cath1509]

Hi all!

I have 2 worksheets, one called "Consolidated" and one called "Converted".

I have a spreadsheet where I press the update button and a macro runs that searches for the word "Converted" in column E on the Consolidated spreadsheet (the original). When it finds it, the entire row will be cut and pasted onto the "Converted" worksheet.

I have managed (with some help!) to do this with my current code. However when you press the update button again, all the newly pasted rows on the Converted worksheet are deleted. (I would like when i press the update button it to NOT affect the Converted worksheet, just add any new data found on the Consolidated sheet to the Converted sheet.) I assume this is because my current code her below is NOT telling the spreadsheet to paste to the NEXT AVAILABLE EMPTY ROW. Please see my current code:

Please Login or Register  to view this content.

So the problem is this line:

Please Login or Register  to view this content.

I have attempted to replace this line with:

Please Login or Register  to view this content.

But there is something wrong as the code keeps breaking on that line!

Any help would be greatly appreciated. Thanks!

[AB33]

Cath,
This line is correct. It may be that column A is empty, so that the code keeps pasting the data on the next empty row . The code you have is not greate, but to write you a new code, I need to see the sample

Please Login or Register  to view this content.

[JOHN H. DAVIS]

Can you provide a sample which does that? At first site the code looks good to me.

[cath1509]

Hi - here is a sample and the entire code for the sample. I took out part of the code out (it didn't have anything to do with the question that I originally asked) or so i thought, as it seemed to be working okay...

Here is the entire code for the sample:

Please Login or Register  to view this content.

And the attached workbook too...

Thanks!

[AB33]

So, what is the issue then?

[AB33]

You need to change this line

Please Login or Register  to view this content.

This implies the code will look at any sheet
INTO

Please Login or Register  to view this content.

Then 'This implies the code will look at Set w1 = Sheets("Consolidation")