Rearranging data from combined list to separate lists

I've looked through the archives but cannot find anything that addresses this exact issue.

Is there a simple way via VBA to alter the layout of data from a mixed up two column list into multiple headed lists on another worksheet (within the same workbook)?

The attachment should better demonstrate what I mean. Sheet1 has example data of how it is and Sheet2 shows how I would like it.

The data will be dynamic in the sense the numbers of unique values in column A will change (only increase, never decrease), as will the number of unique values in column B.

Many thanks in advance.