Macro to Split Master Worksheet into Multiple Worksheets by Primary Key

I'm looking for help in creating a macro that will break out an excel file by its primary key into multiple worksheets. For instance:

1 Data
1 Data
1 Data
1 Data
1 Data
1 Data
2 Data
2 Data
2 Data
2 Data
2 Data
3 Data
3 Data
3 Data
3 Data
3 Data

I want all of "1" to display on one worksheet then all of "2" to display on another worksheet, etc.

Thanks in advance for the help.