Try this.

Sub consolidate()

dim totRow, a as integer
totRow = ActiveSheet.UsedRange.Rows.Count

For a = 1 to totRow

Cells(a,4).Value = Trim(Cells(a,4).Value) & " "
Trim(Cells(a,5).Value) & " " & Trim(Cells(a,6).Value)

Next

end su

--
prepotenc
-----------------------------------------------------------------------
prepotency's Profile: http://www.excelforum.com/member.php...fo&userid=2415
View this thread: http://www.excelforum.com/showthread.php?threadid=38661