Find duplicate code with reference to generate new list

[SamKhem]

Dear Senior member

I would like request you to assist fill run vba as find duplicate code with reference to generate new list as below:

Book4
	A	B	C	D	E
1	LIST			RESULT
2	CODE	REFERENCE		CODE	REFERENCE
3	BA2319900009	AC6001		BA2319900009	AC6001
4	BA2319900009	PL50010		BA2319900009	BA
5	BA2308200035	PL50010		BA2319900009	PL50010
6	BA1319900014	AC6001		BA2319900009	BA
7	BA1319900014	AC6001		BA1319900014	AC6001
8	BA1319900014	AC13265		BA1319900014	BA
9	BA2319200059	AC5002		BA1319900014	AC6001
10	BA2319200059	AC5002		BA1319900014	BA
11	BA2319100023	AC6001		BA1319900014	AC13265
12	BA2319100023	PL60705		BA1319900014	BA
13	BA2319100023	AC6001		BA2319200059	AC5002
14	BA2319100023	AC6001		BA2319200059	BA
15	BA2119700024	PL50010		BA2319200059	AC5002
16	BA2119700024	AC6001		BA2319200059	BA
17	BA2119700024	AC13265		BA2319100023	AC6001
18	BA2119700020	PL50010		BA2319100023	BA
19	BA2119700020	AC13265		BA2319100023	PL60705
20	BA2316500054	AC6001		BA2319100023	AC6001
21	BA2316500054	AC6001		BA2319100023	AC6001
22	BA2316500054	AC6001		BA2319100023	BA
23	BA2316500054	PL60705		BA2119700024	PL50010
24	BA2316500054	AC13265		BA2119700024	BA
25	BA2316500054	PL50000		BA2119700024	AC6001
26	BA2318500001	AC6001		BA2119700024	BA
27	BA2318500001	PL60705		BA2119700024	AC13265
28	BA2318500001	AC6001		BA2119700024	BA
29	BA2318500001	AC6001		BA2119700020	PL50010
30	BA2318500001	AC13265		BA2119700020	BA
31	BA2317000050	AC6001		BA2119700020	AC13265
32	BA2317000050	PL60780		BA2119700020	BA
33	BA2317000050	AC6001		BA2119700020	BA
34	BA2317000050	AC6001		BA2119700020	BA
35				BA2119700020	BA
36				BA2119700020	BA
37				BA2316500054	AC6001
38				BA2316500054	BA
39				BA2316500054	AC6001
40				BA2316500054	BA
41				BA2316500054	AC6001
42				BA2316500054	PL60705
43				BA2316500054	AC13265
44				BA2316500054	BA
45				BA2316500054	PL50000
46				BA2316500054	BA
47				BA2318500001	AC6001
48				BA2318500001	BA
49				BA2318500001	AC6001
50				BA2318500001	BA
51				BA2318500001	AC6001
52				BA2318500001	PL60705
53				BA2318500001	AC13265
54				BA2318500001	BA
55				BA2317000050	AC6001
56				BA2317000050	BA
57				BA2317000050	AC6001
58				BA2317000050	BA
59				BA2317000050	AC6001
60				BA2317000050	PL60780
61				BA2317000050	BA
62				BA2317000050	BA
Sheet1

Thank in advance for your support.
Best regards,