Macro to Cut "Completed" Rows from Sheet 1 and Paste in Sheet 2

Hi. I am trying to formulate a macro that will look for rows where the status of a task is marked complete. I would then like to cut those rows from Active and paste them in the next available rows in completed. Here is the code I have so far.

Please Login or Register  to view this content.

I am having two problems (that I can identify) with the code so far:

1: On the initial run it correctly identifies the completed cell, but it pastes them over the top of my headings in Completed; and
2: If I run it again and there are not completed items in Active, it cuts my headings out and pastes them in row 1 of Completed.

test 2.xlsm

Please Login or Register  to view this content.

AB33 - Thanks for the help. Code didn't quite accomplish what I wanted but it got me pointed in the right direction. Here is the code as finished

Please Login or Register  to view this content.