sorting by column

hi every body
I would like to make a sub to sort in ascendin order the numbers that I have in the sheet1, one column at time.
I was thinking to use a for routine but I am struggle to determine how to move from one column to the next one.
any help or suggestion?
best regards to all