Increasing Number sequence based on cell value in a different column

[Theemeadelis]

I have a large data set that I need to set an increasing number sequence in column A based on the value showing in column D.

i.e. The number in column A increases by 1 each time the value in column D changes:

A	B	C	D
1001	AX11172	ILC010377, VSC003830	ENT002281
1001	AX8170	ILC006062, VNC001394	ENT002281
1001	AX8171	ILC006386, VNC001395	ENT002281
1001	AX8263	ILC006275	ENT002281
1001	AX8271	ILC006299	ENT002281
1001	AX8301	ILC006362	ENT002281
1001	AX9933	ILC008840, VSC002400	ENT002281
1001	AX9935	ILC008842, VSC002402	ENT002281
1002	AX8405	ILC006620, VSC002028	ENT002936
1002	AX9255	ILC008021, VSC002197	ENT002936
1002	AX9608	ILC008458	ENT002936
1003	AX9267	ILC008037, VSC002043	ENT002955
1003	AX9289	ILC008061	ENT002955
1003	AX9310	ILC008085, VSC002066	ENT002955
1003	AX9317	ILC008093, VSC002067	ENT002955
1003	AX9385	ILC008191	ENT002955
1004	AX10635	ILC009664, VNC002680	ENT002957
1004	AX9270	ILC008040, VEC001321, VSC002045	ENT002957
1004	AX9315	ILC008090, VEC001106, VSC003158	ENT002957
1004	AX9528	ILC008371, VNC002175, VSC002181	ENT002957
1005	AX9523	ILC008363, VEC001036, VNC002463	ENT003254
1006	AX12113	ILC011830, VSC003785	ENT003550
1007	AX10294	ILC009258	ENTZZZZZ84
1007	AX9291	ILC008064, VSC002048	ENTZZZZZ84
1008	AX11993	ILC011656, VNC003084	ENTZZZZZ85
1009	AX7164	ILC004462, VSC001030	ENTZZZZZ86
1009	AX7609	ILC005267, VSC001079	ENTZZZZZ86

Is there a formula or macro that I can use to produce the increasing number sequence in column A each time the value in column D changes?

 

[JEC]

Assuming you have a header in column A

Book1
	A	B	C	D
1	Header1	Header2	Header3	Header4
2	1001	AX11172	ILC010377, VSC003830	ENT002281
3	1001	AX8170	ILC006062, VNC001394	ENT002281
4	1001	AX8171	ILC006386, VNC001395	ENT002281
5	1001	AX8263	ILC006275	ENT002281
6	1001	AX8271	ILC006299	ENT002281
7	1001	AX8301	ILC006362	ENT002281
8	1001	AX9933	ILC008840, VSC002400	ENT002281
9	1001	AX9935	ILC008842, VSC002402	ENT002281
10	1002	AX8405	ILC006620, VSC002028	ENT002936
11	1002	AX9255	ILC008021, VSC002197	ENT002936
12	1002	AX9608	ILC008458	ENT002936
13	1003	AX9267	ILC008037, VSC002043	ENT002955
14	1003	AX9289	ILC008061	ENT002955
15	1003	AX9310	ILC008085, VSC002066	ENT002955
16	1003	AX9317	ILC008093, VSC002067	ENT002955
17	1003	AX9385	ILC008191	ENT002955
18	1004	AX10635	ILC009664, VNC002680	ENT002957
19	1004	AX9270	ILC008040, VEC001321, VSC002045	ENT002957
20	1004	AX9315	ILC008090, VEC001106, VSC003158	ENT002957
21	1004	AX9528	ILC008371, VNC002175, VSC002181	ENT002957
22	1005	AX9523	ILC008363, VEC001036, VNC002463	ENT003254
23	1006	AX12113	ILC011830, VSC003785	ENT003550
24	1007	AX10294	ILC009258	ENTZZZZZ84
25	1007	AX9291	ILC008064, VSC002048	ENTZZZZZ84
26	1008	AX11993	ILC011656, VNC003084	ENTZZZZZ85
27	1009	AX7164	ILC004462, VSC001030	ENTZZZZZ86
28	1009	AX7609	ILC005267, VSC001079	ENTZZZZZ86
Sheet1

Cell Formulas
Range	Formula
A2:A28	A2	=IF(D2<>D1,IF(ROW(A1)=1,1001,A1+1),A1)

 

[Theemeadelis]

Assuming you have a header in column A

Book1
	A	B	C	D
1	Header1	Header2	Header3	Header4
2	1001	AX11172	ILC010377, VSC003830	ENT002281
3	1001	AX8170	ILC006062, VNC001394	ENT002281
4	1001	AX8171	ILC006386, VNC001395	ENT002281
5	1001	AX8263	ILC006275	ENT002281
6	1001	AX8271	ILC006299	ENT002281
7	1001	AX8301	ILC006362	ENT002281
8	1001	AX9933	ILC008840, VSC002400	ENT002281
9	1001	AX9935	ILC008842, VSC002402	ENT002281
10	1002	AX8405	ILC006620, VSC002028	ENT002936
11	1002	AX9255	ILC008021, VSC002197	ENT002936
12	1002	AX9608	ILC008458	ENT002936
13	1003	AX9267	ILC008037, VSC002043	ENT002955
14	1003	AX9289	ILC008061	ENT002955
15	1003	AX9310	ILC008085, VSC002066	ENT002955
16	1003	AX9317	ILC008093, VSC002067	ENT002955
17	1003	AX9385	ILC008191	ENT002955
18	1004	AX10635	ILC009664, VNC002680	ENT002957
19	1004	AX9270	ILC008040, VEC001321, VSC002045	ENT002957
20	1004	AX9315	ILC008090, VEC001106, VSC003158	ENT002957
21	1004	AX9528	ILC008371, VNC002175, VSC002181	ENT002957
22	1005	AX9523	ILC008363, VEC001036, VNC002463	ENT003254
23	1006	AX12113	ILC011830, VSC003785	ENT003550
24	1007	AX10294	ILC009258	ENTZZZZZ84
25	1007	AX9291	ILC008064, VSC002048	ENTZZZZZ84
26	1008	AX11993	ILC011656, VNC003084	ENTZZZZZ85
27	1009	AX7164	ILC004462, VSC001030	ENTZZZZZ86
28	1009	AX7609	ILC005267, VSC001079	ENTZZZZZ86
Sheet1

Cell Formulas
Range	Formula
A2:A28	A2	=IF(D2<>D1,IF(ROW(A1)=1,1001,A1+1),A1)

Perfect, thank you for your help