Loop thru row and copy matching record to appropriate columns

I posted a similar question yesterday, which had an elegant solution thanks to Fluff13.

My question yesterday was......

Basically I take the unique records in column B and place in a column on row 1 transposed, shown in image as column F thru I.

I then need to loop thru column B and when the value in F1 is found copy the value in column C to next available row in column F, once cycled thru all rows in column B then repeat the same for value in G1 thru I1. Attached image shows how data should look

Capture-1.PNG

The following code courtesy of Fluff13 worked great.

Please Login or Register  to view this content.

Now I find a need to add the corresponding value in the column A, as shown in attached image.

Capture.PNG

Thanks