Sort based on values of cells to the left

Hello

I have a sheet that goes like this:

A1:2 B1:Apple
A2:5 B2:Pear
A3:4 B3:Orange
A4:1 B4:Banana
A5:3 B5:Grapes

and I would like to have a macro that sorts column B according to values in column A so after it sorts, it will turn out like this:

A1:1 B1:Banana
A2:2 B2:Apple
A3:3 B3:Grapes
A4:4 B4:Orange
A5:5 B5:Pear

Is this possible? Please help! Any comments on other ways to do this will be great! Thanks in advance.

Use the macro recorder to start off with.