VBA code .range problem

Hello, On the attached spreadsheet when the data in column A, Active Opportunities changes to "Closed" it automatically moves to the "Closed Business" sheet, but it deletes other data that i need to keep past column Q. Any ideas on how to modify the code to fix this? I'm not sure how to change the range. Thanks in advance.