Populate data in column format

Hi everyone,

Can anyone help me write a VBA programming or Macro that populate data in column format?

For example, there are 3 sets of records: 1, 2, 3. Each set contains a list of records down in a column. However, the expected column order is 1, 3, 2. Therefore, all rows for set 1 should populate to column A; all rows for set 3 should populate to column B; and column C for set 2.

Please take a look at the file attached for my input and expected results.

Thank you and have a nice day

N.B. I try to do it manually but it take time to do for more than 2,000 sets (columns).