Are you simply looking to transpose the data onto sheet2, like so. I have
used sheet1 and sheet2, change to suit

Sub TransposeData()
Dim wks As Worksheet
Set wks = Worksheets("Sheet2")
Worksheets("Sheet1").Range("A1:A10").Copy
wks.Range("C2").PasteSpecial Transpose:=True
End Sub

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
DTHIS
www.nickhodge.co.uk


"ElkySS" wrote in message
...
The logic here sounds so simple to me but I can not get the code to work
so I
could use some help. I am in Excel 2000 and I am dealing with 2 sheets in
the same workbook. On sheet one I have a column of words (like in Cells
A1
to A10) and I need to set up some kind of macro loop that will grab the
info
from cell A1 on Sheet1 and copy it to Cell C2 on Sheet2 then grap Cell A2
from Sheet1 and put in in Cell D2 on Sheet2. because I am copying a
column
and pasting it into a row I can not just grab the range. I have to get
them
one at a time.
Here is something a Little better to show what I am talking about

Sheet1 | Sheet2
(Cell)A | CellA Cell B
Cell C
1 Test | Test Desk
House
2 Desk |
3 House |