Moving data based on the date

Can anybody help me write a macro code wherein:

If I enter date as 1 then a particular selection shows up under Column A
Similarly, if I enter date as 2 then a particular selection shows up under Column B and so on.

I have an attchment that has sample data that will help you understand the situation