Copy Cut Paste by Certain Value

If I highlight the text I want to move to a different sheet it works fine. See the attached spreadsheet. What I want is to have the macro find "Closed" which will only and always exist in the 'D' column. Highlight the three cells to the right, or can be the entire line, does not matter as there is only four columns of data and move it to 'Sheet 2'. Like I said if I highlight the rows I want and run my macro they move, I just don't want to have to highlight anything as this is going to be embedded into another macro and there is over 1000 rows of data.

Any help would be appreciated.

yes! exactly what i needed. thank you very much!

one more thing. i got everything working how i need it to. the only problem which is small is that it creates a new worksheet and pastes the results to that worksheet. i need it to paste to the end of an existing worksheet. i just noticed that.