Delete Cells in Excel Row based on number in Cell

[Allen2014]

I have the following data and would like some VBA Code to run down the Rows and based on the number in Column D, Delete the Cells (and Shift Data to the Left) in Columns E to I based on the number in Column D. For example,
In Row 1, to delete Cells F1:I1, as the value is 1; Value retained = "Item1"
In Row 2, to delete Cells in E2 then Cells F2:I2; Value retained = "Item2"
In Row 3, to delete Cells in E3:F3 then Cells F3:I3; Value retained = "Item3"
In Row 4, to delete Cells in F4:I4; and so on ... Value retained = "Item1"
At the end I want only one of the items in Columns E:I in each of the Rows, with the number oin Column D determining which of the Columns Data is retained.
Max number of Columns holding data to be retained is 5, hence looking in Columns E:I, although this may be a variable.
Any assistance is much appreciated.
Thanks
Allen

<tbody>
</tbody>

1	A	B	C	D	E	F	G	H	I
2	CompanyA	FacilityB	Group1	001	Item 1	Item 2	Item 3
3	CompanyA	FacilityB	Group1	002	Item 1	Item 2	Item 3
4	CompanyA	FacilityB	Group1	003	Item 1	Item 2	Item 3
5	CompanyB	FacilityB	Group2	001	Item 1	Item 2
6	CompanyB	FacilityB	Group2	002	Item 1	Item 2
7	CompanyC	FacilityB	Group3	001	Item 1	Item 2	Item 3	Item 4
8	CompanyC	FacilityB	Group3	002	Item 1	Item 2	Item 3	Item 4
9	CompanyC	FacilityB	Group3	003	Item 1	Item 2	Item 3	Item 4
10	CompanyC	FacilityB	Group3	004	Item 1	Item 2	Item 3	Item 4
11	CompanyD	FacilityB	Group4	001	Item 1
12	CompanyE	FacilityB	Group5	001	Item 1	Item 2	Item 3	Item 4	Item 5
13	CompanyE	FacilityB	Group5	002	Item 1	Item 2	Item 3	Item 4	Item 5
14	CompanyE	FacilityB	Group5	003	Item 1	Item 2	Item 3	Item 4	Item 5
15	CompanyE	FacilityB	Group5	004	Item 1	Item 2	Item 3	Item 4	Item 5
16	CompanyE	FacilityB	Group5	005	Item 1	Item 2	Item 3	Item 4	Item 5

<colgroup><col><col><col><col><col><col span="5"></colgroup><tbody>
</tbody>

<tbody>
</tbody>

<tbody>
</tbody>

 

[yesterdays]

Here is an option without VBA :
J2 : =INDEX(E2:I2,0,D2*1)
fill down

 

[Allen2014]

Thanks. I think this may just work. Nice and simple!