Using TextJoin (Excel 2016) in VBA

I tried a number of different approaches but can't seem to get this to work. ( I kept a few statements in there as comments to go back to in case there was an eureka moment.)

I am copying unique records (relative to Head 1) from "First sheet" to "Final." Normally, I just want to copy the first instance for each cell. (Code works fine for that)
However, if the header is "Aligned" or "Global", I want all instances to be copied to the cell.
Here is my code and an example workbook attached. Thanks in advance.

Please Login or Register  to view this content.

Do not understand what you want.
Can you show the expected result?

Okay, I modified the original file so with a sheet showing expected results.
I know I could do it with a loop but I thought the TextJoin would be more expedient.
Thanks

I would write the code like this:

Please Login or Register  to view this content.

It worked here