Macro that assigns and grouping data by header

[Magoosball]

I'm trying to write a macro that will do the following.
Take a list of names and data and assign them to other people broken by header.

For example from the following list: Christine gets all the data associated with Mark and Matt. Dolores gets all the data associated with Barb and Mike. Janet gets everything associated with John and Luke.

See below example:

Matt	1						8
Mark	1						8
Luke	1						8
John	1						8
Mike	1						8
Mark	1						8
Mike	1						8
Heidi	1						8
Mike	1						8
Matt	1						8
Barb	1						8
Barb	1						8
Barb	1						8
Mike	1						8

<tbody>
</tbody>

Christine
Matt	1						8
Matt	1						8
Mark	1						8
Mark	1						8
Dolores
Barb	1						8
Barb	1						8
Barb	1						8
Mike	1						8
Mike	1						8
Mike	1						8
Janet
John	1						8
John	1						8
John	1						8
Luke	1						8
Luke	1						8

<tbody>
</tbody>

How would I go about doing this?

 

[Magoosball]

I was considering creating a separate sheet with the headers Christine, Dolores and Janet on it. Then saying if a1=Matt then copy a1-a8, vlookup Christine on sheet 2 and pasting underneath.
Is there a better way?