Macro to divide column into multiple columns

Hello,

I have a monthly report which is run and exported to Excel. I have one column of data which may be between 5K-10K rows depending on number of transactions. I need to be able to divide the data into 5 separate columns starting left to right. For example:

Column "A" has 5003 rows of purchase order numbers. These need to be divided into 5 separate columns "B" through "F". As 5003 is not evenly divided by 5 columns, column"B", "C" and "D" would have 1001 rows of data and columns "E" and "F" each have 1000 rows of data.

Any idea on how to write a macro to do this? Any help is appreciated.