Something like this perhaps. Otto
Sub DoIt()
Dim i As Range
For Each i In Selection
i = i & " " & i.Offset(0, 1).Value
Next i
End Sub


"Maarkr" wrote in message
...
I've got this code to append cell data to the right of the selected cell

ActiveCell.Value = ActiveCell.Value & " " & ActiveCell.Offset(0, 1).Value

THis code only works for a single selected cell... not multiple cells.
I want to be able to select the entire column A (not just a single cell in
col a) or multiple cells and have all cells in B append into A.

thanks