Copying value to a cell in a different sheet. Cell is found using vlookup

Question

I\'m new to VBA and have been trying a lot to solve my problem. Since I almost never use VBA I depend completely on pre-made code I find on the web and/or this website. I can\'t