copy selection and paste to end of row if 4 criteria are met

[Youngdand]

Hi,

I am struggling with the below problem.

I have a set of data which is 18 columns long and could have many rows.

the data may have many similar items.

For each item where columns a,d,g,h,i,j,k,l,m match another row within the sheet, i need to cut the range a to r to the end of the row containing the first instance, and subsequent matches should be pasted again to the end of this row and so on. below is a small example of the data.

for example row 2 should be pasted to the end of row 1. row 7 should be added to the end of row 6, and row 8 should be added at the end of this.


Can anyone help with this?

	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O	P	Q	R
1	Company 1	123456	987654	AB64VBA			Name 1	Add1	Add2	Add3	Add4	Add5	Pcode	Some info	More info	27/06/2017	160	25/07/2017
2	Company 1	234567	876543	AB64VBA			Name 1	Add1	Add2	Add3	Add4	Add5	Pcode	Some info	More info	26/06/2017	160	24/07/2017
3	Company 2	345678	765432	AB64VBA			Name 1	Add1	Add2	Add3	Add4	Add5	Pcode	Some info	More info	06/07/2017	135	03/08/2017
4	Company 2	456789	654321	BC17CLJ			Name 2	Add1	Add2	Add3	Add4	Add5	Pcode	Some info	More info	05/07/2017	135	02/08/2017
5	Company 2	567890	543210	BC17CLJ			Name 2	DiffAdd1	DiffAdd2	DiffAdd3	DiffAdd4	DiffAdd5	DiffPcode	Some info	More info	29/06/2017	135	27/07/2017
6	Company 3	678901	432109	DE57ZTD			Name 3	Add1	Add2	Add3	Add4	Add5	Pcode	Some info	More info	07/07/2017	135	04/08/2017
7	Company 3	789012	321098	DE57ZTD			Name 3	Add1	Add2	Add3	Add4	Add5	Pcode	Some info	More info	13/06/2017	160	11/07/2017
8	Company 3	890123	210987	DE57ZTD <tbody> </tbody>			Name 3	Add1	Add2	Add3	Add4	Add5	Pcode	Some info	More info	03/08/2017	160	31/08/2017
9	Company 4	901234	109876	EF57ZBC			Name 4	Add1	Add2	Add3	Add4	Add5	Pcode	Some info	More info	06/06/2017	160	04/07/2017

<tbody>
</tbody>

Sheet1
​

 

[Youngdand]

HI Fluff,

In the end it threw an Run-time error -2147417878(80010108)
Automation Error
The Object Invoked had disconnected from its clients.

Any idea why this maybe? For reference i am using Excel 2016 64bit

 

[Fluff]

Just tested on ~4500 & it took under a minute. Do you have any event code that might be interfering?
I've no idea why you'd get that error, unless there is something else going on in the background.

 

[Youngdand]

Just tested on ~4500 & it took under a minute. Do you have any event code that might be interfering?
I've no idea why you'd get that error, unless there is something else going on in the background.

After a restart and copying the data to a new workbook, it worked flawlessly and fast. Not sure which fixed it, but it works perfectly.

Thanks a million.

 

[Fluff]

Glad to help & thanks for the feedback