Macro to copy data from one layout to another layout

[JannetteChristie]

Can anyone help with this please, I am trying to write some VBA to copy the following data in my spreadsheet to move to this format.

Starting layout:

Excel 2012
	C	D	E	F	G	H	I	J	K	L	M	N	O
2	VR3-0510-LHM	DUTYPOINT	3	FS5-WRAS	1	COMM1	1	FRB50	2
3	DE		0
4	qp-35	PRESSURISATION	0
5	ec50	CONDITIONER	2	DPS-WMB-EC50	2	DPS-FMB-EC50	1
6	cx65c	SEP	0
7	in15-50-p-h2	HIU	0
8	DPS-SP		1	DPS-NOTE	1
9
10
11
12
13
14
Save & Print prepare

New layout required:

Excel 2012
	T	U
2	VR3-0510-LHM
3	FS5-WRAS	1
4	COMM1	1
5	FRB50	2
6	DE
7	QP-35
8	EC50
9	DPS-WMB-EC50	2
10	DPS-FMB-EC50	1
11	cx65c
12	IN15-50-P-H2
13	DPS-SP
14	DPS-NOTE	1
Save & Print prepare

I am sure this is possible but not sure how to code this.

 

[JannetteChristie]

Value is 100

 

[Fluff]

If the upper bound of Nary is 100 I don't understand how you could have rr as 110. It should have failed at 101.
What line is highlighted when you get the error?

 

[JannetteChristie]

Line highlighted is: nary(rr, 1) = ary(r, 1)

When I hold my mouse over it, it says: nary(rr, 1) = ary(r, 1) = <Subscript out of range >

 

[JannetteChristie]

My apologies, I have just realised that there was an error in my code, I did not notice the change you made to the line:

ary = Range("C2", Range("C" & Rows.Count).End(xlUp).Offset(, 10)).Value2
ReDim nary(1 To UBound(ary) + Application.Sum(Range("G:G")) + Application.Count(Range("G:G")), 1 To 2)

I have added this and it all running ok now - sorry for wasting your item, I need to be more vigilant

 

[Fluff]

No problems
Glad to help & thanks for the feedback