Lookup Values from List and Copy data unde headings VBA

[podder]

Hi,
I am looking for a VBA solution to the following:
I have a number of headings:
Red Blue Green Yellow

I then have a list of two columns that abbreviates each one as follows:
Re Red
Bl Blue
Gr Green
Yl Yellow

When I get new data it comes in the form of 2 columns as shown below:
20 Yl
10 Re
12 Bl
8 Gr
15 Gr
15 Bl
6 Ye
14 Re

I currently have a spreadsheet setup, using formulas where the given values are distributed under their appropriate headings as shown below:
Red Blue Green Yellow
10 12 8 20
14 15 25 6

Is it possible to obtain the same outcome using VBA.

Thanks

[Aussiebear]

"Ye" equals.... Typo?

[podder]

"Ye" equals.... Typo?
Yes
Sorry, my apologies

[georgiboy]

Couple of options on the attached

[Aussiebear]

Very clever Georgiboy

[podder]

Couple of options on the attached

Georgiboy,
Your solution works, but my colour list is longer than what I showed, which is why I wanted it related to a list (my 2 column list in original post).
So I was hoping that the abbreviated entries could be matched with the list. My required final output is what your solution achieves.

Thanks

[georgiboy]

Another option using filter

[podder]

Another option using filter

Georgiboy,
Thats perfect, Thankyou