You can try using a loop. Just adjust the code below to your applicaiton by
adjusting the Sheet name and start of range.

Option Explicit

Sub AppendCells()

Dim lngLastRow As Long
Dim rng As Range

With Sheets("Sheet1")

lngLastRow = .Cells(Rows.Count, "A").End(xlUp).Row

For Each rng In .Range("A1:A" & lngLastRow)
rng.Value = rng.Value & " " & rng.Offset(0, 1).Value
Next rng
End With

End Sub

Hope this helps! If so, click "YES" below.
--
Cheers,
Ryan


"Maarkr" wrote:

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