Here is a macro

Sub Test()
Dim iLastRow As Long
Dim i As Long

iLastRow = Cells(Rows.Count, "A").End(xlUp).Row
If (iLastRow \ 2) * 2 < iLastRow Then
iLastRow = iLastRow - 1
End If
For i = cLastRow To 2 Step -2
Cells(i - 1, "B").Value = Cells(i, "A").Value
Rows(i).Delete
Next i

End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)


"ad" wrote in message
...
I am currently working on a spreadsheet that has 11000+ rows. I need to
move
every other row to a column. With this said, the rows must stay in order
because A1 correspondes with A2, A3 with A4, A5 with A6, etc.

So I have:

name1
address1
name2
address2
name3
address3

I want:

name 1 address1
name 2 address2
name 3 address 3

Are there any quick ways to do this? Thanks.