VBA; Move row based on cell value to another sheet on same number of row.

I am using this code to move row based on cell value to another sheet. This code is moving the row which contain ok in column A from sheet1 to sheet2. But I need if find ok in row 20 and cloumn A. Then the row will go to 20 nth row to the sheet2. Suppose row 4,7,4,13,42,45,,98,100 contain ok in column A. I need to move that rows to sheet two in same number of row.
row 4 will go to 4rth row in shhet2.
row 7 will go to 7nth row in shhet2.
row 13 will go to 13nth row in shhet2.
It will continue for the next row.

Please Login or Register  to view this content.

Untested, but maybe?

Please Login or Register  to view this content.

Attaching a sample workbook enables others to work on your problem:

Although somebody could replicate your workbook, it would be much easier if you were to attach a sample.


To attach a sample workbook. Make sure there is just enough data to make it clear what is needed. Include BEFORE/AFTER sheets if needed to show the process you're trying to complete or automate. Remember to desensitize the data.

Click on GO ADVANCED and use the paperclip icon to open the upload window.

View Pic