One way ..
Assuming your source data is running in A1 down
Put in B1:
=INDEX($A:$A,ROWS($1:1)*2-2+COLUMNS($A:A))
Copy B1 to C1, fill down as far as required to exhaust the data in col A
(until zeros appear)

Assuming your data is in Column "A" and starting in A1, is your ultimate
goal to put the contents of A2 into B1 and so on down the column? Here is a
macro that will copy the alternate data in Column A (changeable with the
code) to the Column B of the preceding row and then delete this alternate
data row. Your data can start in either Row 1 or Row 2, but there must be an
even number of rows with data (because these are paired numbers). Anyway,
try the macro out on some sample data to see if it does what you are looking
for.

Sub XY()
 Const Col As String = "B"
 Dim X As Long
 Dim FirstRow As Long
 Dim LastRow As Long
 LastRow = Cells(Rows.Count, Col).End(xlUp).Row
 FirstRow = 1 - (LastRow Mod 2 = 1)
 For X = LastRow To FirstRow + 1 Step -2
   Cells(X, Col).Offset(-1, 1).Value = Cells(X, Col).Value
   Cells(X, Col).EntireRow.Delete
 Next
End Sub

Rick