Move row from one table to another on the same sheet based on cell value

I have one sheet with 2 tables. Both tables are identical and use columns C:S. I am trying to move the active row from one table to the next empty row on the other and vice versa based on a cell value which can be either "Open" or "Closed" under the table column heading located in Column D called "Status". Currently it is manually typed in. I would like it to move when the value changes on either table. So the top table should only show "Open" items and the bottom table should only show "Closed " items.

I cant seem to get this to work at all. Here is the code I have, any help is appreciated!

Please Login or Register  to view this content.

On the workbook you provided it seems to work, but on mine I get "Variable not defined" on TargetRowsCount = .DataBodyRange.Rows.Count

Originally Posted by sintek

Ideally you should upload a sample file so we could test....

I attached a file.

Originally Posted by sintek

See attached....When converting to tables, Table has headings was not included so data was not part of Table data.Body...
Keep this thread open as I would like top see more solutions....

edited...A problem i foresee is that some time or other the Open table is going to OVERLAP THE CLOSE TABLE WHICH WILL RENDER ERRORS IN CODE.....

I didnt think of that, good catch!

Yes, I do see the issue you mention, Under normal circumstances the top table would never fill up enough to run into the bottom table, but when moving rows back and fourth it creates blank rows and deletes the row which makes the available amount of rows for table 2 less and less. Hoping I can find a way to prevent that.

Originally Posted by sintek

Try this code....Ensures that the gap between the Tables remains the same.

Please Login or Register  to view this content.

That did seem to help, however the blank rows that get reproduced when moving from the last row on the top table to the bottom eventually overlap the colored cells above the second table.

Hey thanks, this works great. Just one thing; after running the macro both tables lose their filter arrows, is there a way to automatically add this back in?
Thanks again