Macro to move rows of text to another sheet

I have a spreadsheet which contains two sheets, both of which are virtually identical. In Sheet 1, Column O is always blank, "No", or "Yes" for each row, and columns A to N have various data entered for each row. I have a button on Sheet 1 which runs this macro:

Please Login or Register  to view this content.

The idea is that there will be various rows of data on Sheet 1, all with "Yes" or "No" in column O. This macro is supposed to look at every row in Sheet 1 one at a time (beginning with row 3 and ending with the last row where there is a value in column O), and check to see what the cell value is in column O. If it is "Yes", then it is supposed to:

1 - Cut the data in columns A-N in Sheet 1
2 - Go to Sheet 2, and paste the cut data into row 3 (shifting the other cells down)
3 - Go back to Sheet 1, and delete the data for that row in columns A-N, shifting the cells below up by one
4 - See if there is anything in column O again (as it is now the next row of data)
5 - If there is a "Yes", then go back to step 1

The problem is, sometimes it doesn't do anything, and when it does work, it moves only one record to Sheet 2, and to row 4 not row 3. And it messes up the formula reference in column O, because it deletes cells and shifts them up.

Any help appreciated.