Need to compare 2 columns and align them next to the match

Using Excel 2007. I need a Macro script that will take my columns B-J and match the value of B to the value of A and move the entire row with B to match A.


Example Before
A B C D ...
1
2 7 ox green
3
4 3 cat brn
5 1 dog red
6 4 bird blue
7 5 rat black


Example After
A B C D ...
1 1 dog red
2
3 3 cat brn
4 4 bird blue
5 5 rat black
6
7 7 ox green

Thank You in advance!!!