move data from diff rows in 1 column into new columns based on dup data in another field

Wow! Works great, but I have 1 question though... if I had data(name in this case) that did not have more than one duplicate name in column A for example. How hard is it to update this macro so that it writes that row too? This seems to only write out the ones on sheet two that have duplicates and doesn't touch the ones that don't. If it's too hard, then I can work with this as is and I REALLY appreciate the help. Thanks !

Pl see attached file with formulas and macro .
Select whichever is suitable.

One last question. Say I had 2 or more columns with exact data (column A and B), but one with distinct that I would use this macro for. How do I change the syntax to qualify to look at more than one duplicate column and copy those rows too. Example:

Gary1 12345 Gold
Gary1 12345 Silver
Gary1 12345 Bronze
Jim1 54321 Gold
Jim1 54321 Silver
aaa1 09876 Gold

To be:

Gary1 12345 Gold Silver Bronze
Jim1 54321 Gold Silver
aaa1 09876 Gold

Again...thank you so much for the help so far. I really appreciate the time !

Pl see attached file.

Thank You so much ! Works like a charm. I really appreciate the help with this.