VBA - Move entiry rows from one sheet to another based on cell value

[Ismo]

I have two sheets:
1. Not yet printed
2. Printed

My data is in sheet 1 (Not yet printed). I would like to move automatically entiry rows (sometimes more then one) to sheet 2 (Printed) based on one cell's value. Here is a screenshot:

For example when I enter into Sheet 2 '264450' then row 2 would have been moved to Sheet 2.
And also with multiple rows, if I enter '264461' then row 4 and row 6 would have been moved to sheet 2 as well. I wouldn't like to enter a value more than once.
I hope the explanation makes sense.

Thank you very much!

 

[Ismo]

A tiny change on the first concept:

The source data would stay at its original place but have been highlighted, and a copy of it would have been inserted into sheet 2.