How do I select next column in a row, by macro?

Example, I need to change one column into multiple rows. Row length can vary from 1 to 20 cells.