Hi Clamar

This will start you for the concatenate
Sub conc_colb_and_colc()
rowcount = Cells(Cells.Rows.Count, "a").End(xlUp).Row
For i = 2 To rowcount
val1 = Range("b" & i).Value 'assuming data is column b
val2 = Range("c" & i).Value 'assuming data is column c
Range("d" & i).Select 'store in column d
ActiveCell.Value = val1 & " " & val2
Next

End Sub


--
jetted
------------------------------------------------------------------------
jetted's Profile: http://www.excelforum.com/member.php...o&userid=17532
View this thread: http://www.excelforum.com/showthread...hreadid=556581