Code for Automation of concatenation

[alanersk]

Excel 2003

	A	B	C	D	E	F	G	H	I	J
3	CBS Level						ID	Ref	Title	Unit
4	1	2	3	4	5	6
5
6	70	15							CLASS D - DEMOLITION AND SITE CLEARANCE
7	70	15	10						GENERAL SITE CLEARANCE ON GENERALLY LEVEL GROUND
8	70	15	10	10	10				Clear Vegetation
9	70	15	10	10	10	110	350	D100	General Clearance	m2
10	70	15	10	10	10	115	351	D100.1	Clear Dense Vegetation	m2
11	70	15	10	15	10				Remove Complete Trees
12	70	15	10	15	10	110	352	D210.1	Girth 500mm - 1 m	nr
13	70	15	10	15	10	115	353	D220.1	Girth 1 - 2 m	nr
14	70	15	10	15	10	120	354	D230.1	Girth 2 - 3 m	nr
15	70	15	10	15	10	125	355	D240.1	Girth 3 - 5 m	nr
16	70	15	10	20	10				Remove Tree Stumps
17	70	15	10	20	10	110	356	D310.1	Diameter 150 - 500mm	nr
18	70	15	10	20	10	115	357	D320.1	Diameter 500mm - 1 m	nr

<tbody>
</tbody>

Class D​

Hi,

In the above example I need some code to automate a concatenation (I think) based on the reference in Column H.

For example:- I need to be able to enter "D100.1" in a cell and in the cell next to it the text in I6:I10 is concatenated automatically (ie it says "CLASS D - DEMOLITION AND SITE CLEARANCE; GENERAL SITE CLEARANCE ON GENERALLY LEVEL GROUND; Clear Vegetation; Clear Dense Vegetation" in the next cell) . It works one entry at a time when I do it manually but I have over 10,000 lines to work on and I want it completed before I retire!

Has anyone got any ideas as my VBA skills are severely lacking but it does occur to me that it must be possible.

thanks in advance

Al