Columns

I want to place value in columns for heading. I know how place value in rows with a do loop using the Range function. Does anyone know how to place value in columns us a do loop?

If you know how to write in columns, you know how to write in rows!
Just use the other index!
Or better, post the code you use know and i'll show you what ot change (since their are serveral ways to....)!

Making Total bar for Employee Sheets I'm not
sure how to program a paste from one column
to another. I know you can select the range by using the Range fuction but is the another way.
Range("b10").Select
Range("b10").Formula = "=sum(b2:b9)"
Selection.Copy
Range("b10:G6").Select
Instead of using Range is there another way to select the Row and Columns I need. I have a inputbox that tell me how many columns I need to copy too but it does not tell me what Letter the column is that it end at. Example the user input 10 and I know that I going to start at B10. So now I what to go from B10 and the next 10 columns. Not knowing the letter of the column 10 it hard to hard code this into Range function.
ActiveSheet.Paste
Application.CutCopyMode = False