How to simplify vba code?

[idnoidno]

1	2	3	4	5
2	1	2	1	10	76	0.083333
2	1	2	1	10	76	0.083333
2	1	2	1	10	76	0.083333
2	1	2	1	10	76	0.083333
2	1	2	1	10	76	0.083333
2	1	2	1	10	76	0.083333
2	1	2	1	10	76	0.083333
2	1	2	1	10	76	0.083333
2	1	2	1	10	76	0.083333
2	1	2	1	10	76	0.083333
2	1	2	1	10	76	0.083333
2	1	2	1	10	76	0.083333
					912	1

ARRAY.xlsm
I used three times of arrays in the worksheet to complete my work, may I ask someone to guide me to simplify this code?

If a3>a1, a3*a1;
If a3<a2,a3*a2*2 ..............


76=a3*a1+b3*b1*2+c3*c1*2+d3*d1*2+e3*e1

0.083333=76/912

I hope it is clear.