copy rows from one sheet to another. Colors solutions. Add.

Hi smart people,

I need a help with rows copy to another sheet useing VBA. I have attached file with task. And I do not know how to solve a problem with coloring. Please try to help, thanx a lot.

AttachmentSize
Task 1.xls20 KB