How to reference sequence of rows with matching value

My ultimate goal is to change the format of the spreadsheet in order to use it for a mail merge. Unfortunately, the data comes from a database file, and the available format of the data does not support my needs or the capability of Word.

Here is the initial format [sheet 1]
B
A1 JOHN RED
A2 JOHN BLUE
A3 JOHN YELLOW
A4 SUE ORANGE
A5 SUE GREEN
A6 BOB PURPLE

For the mail merge I need to be able to reference all data associate with a person's name (Ex: JOHN DOE: red, yellow, orange) but Word can't recognize fields from different records (rows). Therefore, I need to convert the data to the following format:

[sheet 2]
B C D
A1 JOHN RED BLUE YELLOW
A2 SUE ORANGE GREEN
A3 BOB PURPLE

Being that there are over 400+ lines of data, I can't simply cut and paste or reorganize easily. I need something automated on sheet 2. I can sort sheet 1 and easily reference the 1st name. From there,

1) how do you search sheet 1 for each subsequent matching name and reference data in column B.
2) how do you look for the next name change on sheet 1 to begin data search on sheet2- A2?

**note I can always use remove duplicate on sheet 1 to be able to cut and paste all singular names into sheet 2 if absolutely necessary, but I would like something a bit more automated.

FYI---

I know I can use VLOOKUP and get the first reference as long as I have a name in A1 (John)

=VLOOKUP($A1,Sheet1!A:B,2,FALSE)
result RED


1) How to I reference the next values for JOHN (blue and yellow)
2) If I don't want to prepopulate A2, how to I fill with the next name in the sequence (SUE)