How about a macro?
Sub moveBtoAstep5()
For i = 1 To Cells(Rows.Count, "a") _
..End(xlUp).Row Step 5
Cells(i, "b").Cut Cells(i, "a")
Next i
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

wrote in message
ups.com...
using XL 2003

I have 5 cells of addresss data (more than 100 times over)

A2 through A4
But the info that I want in A1 is in B1

Is there a quicker way than scrollling through the 650 record sheet
and cutting all the column B data into the column A cell??

I know I can type "=B2" in A1 but if I dragged that down, I would
lose data in column A.

...Lisa