Dim rng as Range
Dim cell as Range
On Error Resume Next
set rng = Columns(1).SpecialCells(xlBlanks)
On Error goto 0
if not rng is nothing then
for each cell in rng
cell.Value = cell.Offset(0,1).Value
cell.Offset(0,1).ClearContents
Next
End If



--
Regards,
Tom Ogilvy

"Josh in Tampa" wrote in message
...
hello. here's the situation i need a little help with.

i have two columns.....A and B.

both columns hold email addresses. if there is an email
address for a particular record in column A then there is
no email address in column B, and vice versa.

i would like to create a macro that will merge the two.
how can i do this? thank you very much.