Search values and write into the cell

Hello!

I need help in macro.

1) In the column A to find the value "Done".
2) Copy the value of the column B.
3) Insert the value in column C.
4) Make the same with all values in column A-B.

The example in the attachment.

Try the attached. Your cursor has to be on the active sheet when you run the code.

Thx Mate!
It's working

The rule of the site request that a thread should be closed and mark it as solved.