Find string in column in Sheet1, copy entire row to Sheet 2 and delete in Sheet 1

[Tona]

I started with

Please Login or Register  to view this content.

But cannot figure out to implement to delete rows in Sheet1 once they are copied.

[AB33]

rng.EntireRow.delete

[Keebellah]

Try this:

Please Login or Register  to view this content.

[bakerman2]

Also don't forget at the end of your code.

Please Login or Register  to view this content.

[Tona]

Thank you for the solution.
The problem occurs if two cells containing "Finished" are bellow each other (eg. E8, E9), it copies and deletes only one, therefore have to click macro twice.

[Keebellah]

Then you'll have to rewrite your macro to go from bottom to the top?

[AB33]

This task should be done using a filter. No need to loop and complicate the job. No even need a code.

Option Explicit

Please Login or Register  to view this content.