Moving data from one sheet to a new sheet based on value

Hello,
I have been searching the forum for a solution to this problem, but I cannot seem to find what I am looking for. I have a worksheet with 4000+ rows of data. In Column B of the worksheet are the codes I need to sort by, count the number of unique values, and then take each group of unique values and copy them into a new unique worksheet. I cannot figure out how to do this.
Obviously starting the macro with sorting smallest to largest in Column B is necessary, and then I was thinking of counting total number of rows, unique values in all of the rows, then somehow count the number of rows associated with each unique value in Column B, then using some offset action and counter variables to do the copying and pasting to new sheets. However, I am very stuck and cannot seem to make any progress. If someone could help me out, I would certainly appreciate it.

Thank you very much for the help. I have included a small sample worksheet that shows what the raw data looks like (sheet DATA) and the following sheets are the desired end result.
Thanks again.