Sort FUnction in VBA

I'm working on a project that uses Excel VBA to sort a data set of all NFL players. The data set contains 536 players in no particular order. What I have to do is sort the data by position. So the dataset looks something like this:

QB Peyton Manning $100,000 25pts
WR Marquees Colston $50,000 20pts
D Seattle Seahawks $10,000 9pts
QB Drew Brees $100,000 30 pts

Etc....

What I have to do is first select all of the players who's position is "QB"and list them, then "RB" and so on. I've been trying to select a Range if the Value of any of the cells in the range start with "QB" and paste them into another worksheet. Not too much luck so far though. Can anyone help me out?

Book1.xlsm

Here is a sample workbook. There are 536 players on the "Before" sheet, I only sorted 9 manually because it would be a bit time consuming. How can I make a macro to sort this for me?

Originally Posted by mwmackay

Attachment 349307

Here is a sample workbook. There are 536 players on the "Before" sheet, I only sorted 9 manually because it would be a bit time consuming. How can I make a macro to sort this for me?

Do you mean like this. (See attached file.)

macro to sort by position.xlsm