Shifting Cell Data To Top Row

I need a macro to shift column data to the top row for a given cell range sharing common data in row A.
I need to get from this:
Name Fruit Meat Dairy Bakery Alex Apples Alex Milk Alex Bacon Alex Bread Bill Steak Bill Eggs Bill Chicken Bill Oranges
Carl Butter Carl Cake Carl Milk Carl Bananas Carl Pork Carl Peaches Carl Chicken
To this:
Name Fruit Meat Dairy Bakery Alex Apples Bacon Milk Bread Bill Oranges Chicken Eggs Bill Steak Carl Bananas Chicken Butter Cake Carl Peaches Pork Milk
It would be nice if the shifting would sort the data as well.