vba split data in respective columns based on unique list sheet

I have a template sheet with all data merge in in column B.

There is another sheet with unique list which represents issuing body .

My goal is to split column B into their respective headers column D and E .

Column D represents the issuing body and column E the test reference no.

Looking a vba code to split the data based on column A of unique list sheet and extract the difference in column E which represents test reference no