oops,

Missed the space

Sub sonic()
Dim LastRow As Long
Dim MyRange As Range, c As Range
LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
Set MyRange = Range("A1:A" & LastRow)
For Each c In MyRange
c.Value = c.Value & " " & c.Offset(, 1).Value
Next
End Sub

Mike

"Mike H" wrote:

Hi,

loop through the range

Sub sonic()
Dim LastRow As Long
Dim MyRange As Range, c As Range
LastRow = Cells(Cells.Rows.Count, "A").End(xlUp).Row
Set MyRange = Range("A1:A" & LastRow)
For Each c In MyRange
c.Value = c.Value & c.Offset(, 1).Value
Next
End Sub

Mike

"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