Lets say we have in column B:

Mike
1
John
23
David
15
Nigel
17
Trevor
19
George
31

and we want in columns A&B:

1 Mike
23 John
15 David
17 Nigel
19 Trevor
31 George

Then just run:

Sub movem()
n = Cells(Rows.Count, 2).End(xlUp).Row
k = 1
For i = 2 To n Step 2
Cells(k, 1).Value = Cells(i, 2).Value
k = k + 1
Next

For i = n To 2 Step -2
Cells(i, 2).Delete Shift:=xlUp
Next
End Sub


--
Gary''s Student - gsnu200751


"rgawlik" wrote:

I have Column b with Name in one row and number in 2nd row want to move all
numbers to Column a and leave name in Column b without having to move each
one seperate. 1500 records.