vba – Copying cells to another sheet when a condition is met with search function

I simply cannot solve this one, even if I customize similar codes from this web.