How? Move data from Y into multiple X rows - Macro?VBA?

Hello,

I commonly have this problem where I receive a spreadsheet of data and I need to do a VLOOKUP to get a specific categories name and then data from the single date below it. Attached is an example of BEFORE and AFTER. However, I want to without just copying and pasting the data, move the data into the appropriate row. A bit like a pivot table data and then moving each cateogry/header of information into each row.