Augmenter résultat à chaque nouvelle entrée

encore une dernière question comment puis-je répéter cette instruction sur plusieurs dizaine de cellules ? voici ma compilation (trop grande):
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("b6")) Is Nothing Then Range("b5") = Range("b5") + Range("b6")
If Not Intersect(Target, Range("c6")) Is Nothing Then Range("c5") = Range("c5") + Range("c6")
If Not Intersect(Target, Range("d6")) Is Nothing Then Range("d5") = Range("d5") + Range("d6")
If Not Intersect(Target, Range("e6")) Is Nothing Then Range("e5") = Range("e5") + Range("e6")
If Not Intersect(Target, Range("f6")) Is Nothing Then Range("f5") = Range("f5") + Range("f6")
If Not Intersect(Target, Range("g6")) Is Nothing Then Range("g5") = Range("g5") + Range("g6")
If Not Intersect(Target, Range("h6")) Is Nothing Then Range("h5") = Range("h5") + Range("h6")
If Not Intersect(Target, Range("i6")) Is Nothing Then Range("i5") = Range("i5") + Range("i6")
If Not Intersect(Target, Range("j6")) Is Nothing Then Range("j5") = Range("j5") + Range("j6")
If Not Intersect(Target, Range("k6")) Is Nothing Then Range("k5") = Range("k5") + Range("k6")
If Not Intersect(Target, Range("l6")) Is Nothing Then Range("l5") = Range("l5") + Range("l6")
If Not Intersect(Target, Range("m6")) Is Nothing Then Range("m5") = Range("m5") + Range("m6")
If Not Intersect(Target, Range("n6")) Is Nothing Then Range("n5") = Range("n5") + Range("n6")
If Not Intersect(Target, Range("o6")) Is Nothing Then Range("o5") = Range("o5") + Range("o6")
If Not Intersect(Target, Range("p6")) Is Nothing Then Range("p5") = Range("p5") + Range("p6")
If Not Intersect(Target, Range("q6")) Is Nothing Then Range("q5") = Range("q5") + Range("q6")
If Not Intersect(Target, Range("r6")) Is Nothing Then Range("r5") = Range("r5") + Range("r6")
If Not Intersect(Target, Range("s6")) Is Nothing Then Range("s5") = Range("s5") + Range("s6")
If Not Intersect(Target, Range("b9")) Is Nothing Then Range("b8") = Range("b8") + Range("b9")
If Not Intersect(Target, Range("c9")) Is Nothing Then Range("c8") = Range("c8") + Range("c9")
If Not Intersect(Target, Range("d9")) Is Nothing Then Range("d8") = Range("d8") + Range("d9")
If Not Intersect(Target, Range("e9")) Is Nothing Then Range("e8") = Range("e8") + Range("e9")
If Not Intersect(Target, Range("f9")) Is Nothing Then Range("f8") = Range("f8") + Range("f9")
If Not Intersect(Target, Range("g9")) Is Nothing Then Range("g8") = Range("g8") + Range("g9")
If Not Intersect(Target, Range("h9")) Is Nothing Then Range("h8") = Range("h8") + Range("h9")
If Not Intersect(Target, Range("i9")) Is Nothing Then Range("i8") = Range("i8") + Range("i9")
If Not Intersect(Target, Range("j9")) Is Nothing Then Range("j8") = Range("j8") + Range("j9")
If Not Intersect(Target, Range("k9")) Is Nothing Then Range("k8") = Range("k8") + Range("k9")
If Not Intersect(Target, Range("l9")) Is Nothing Then Range("l8") = Range("l8") + Range("l9")
If Not Intersect(Target, Range("m9")) Is Nothing Then Range("m8") = Range("m8") + Range("m9")
If Not Intersect(Target, Range("n9")) Is Nothing Then Range("n8") = Range("n8") + Range("n9")
If Not Intersect(Target, Range("o9")) Is Nothing Then Range("o8") = Range("o8") + Range("o9")
If Not Intersect(Target, Range("p9")) Is Nothing Then Range("p8") = Range("p8") + Range("p9")
If Not Intersect(Target, Range("q9")) Is Nothing Then Range("q8") = Range("q8") + Range("q9")
If Not Intersect(Target, Range("r9")) Is Nothing Then Range("r8") = Range("r8") + Range("r9")
If Not Intersect(Target, Range("s9")) Is Nothing Then Range("s8") = Range("s8") + Range("s9")
If Not Intersect(Target, Range("b12")) Is Nothing Then Range("b11") = Range("b11") + Range("b12")
If Not Intersect(Target, Range("c12")) Is Nothing Then Range("c11") = Range("c11") + Range("c12")
If Not Intersect(Target, Range("d12")) Is Nothing Then Range("d11") = Range("d11") + Range("d12")
If Not Intersect(Target, Range("e12")) Is Nothing Then Range("e11") = Range("e11") + Range("e12")
If Not Intersect(Target, Range("f12")) Is Nothing Then Range("f11") = Range("f11") + Range("f12")
If Not Intersect(Target, Range("g12")) Is Nothing Then Range("g11") = Range("g11") + Range("g12")
If Not Intersect(Target, Range("h12")) Is Nothing Then Range("h11") = Range("h11") + Range("h12")
If Not Intersect(Target, Range("i12")) Is Nothing Then Range("i11") = Range("i11") + Range("i12")
If Not Intersect(Target, Range("j12")) Is Nothing Then Range("j11") = Range("j11") + Range("j12")
If Not Intersect(Target, Range("k12")) Is Nothing Then Range("k11") = Range("k11") + Range("k12")
If Not Intersect(Target, Range("l12")) Is Nothing Then Range("l11") = Range("l11") + Range("l12")
If Not Intersect(Target, Range("m12")) Is Nothing Then Range("m11") = Range("m11") + Range("m12")
If Not Intersect(Target, Range("n12")) Is Nothing Then Range("n11") = Range("n11") + Range("n12")
If Not Intersect(Target, Range("o12")) Is Nothing Then Range("o11") = Range("o11") + Range("o12")
If Not Intersect(Target, Range("p12")) Is Nothing Then Range("p11") = Range("p11") + Range("p12")
If Not Intersect(Target, Range("q12")) Is Nothing Then Range("q11") = Range("q11") + Range("q12")
If Not Intersect(Target, Range("r12")) Is Nothing Then Range("r11") = Range("r11") + Range("r12")
If Not Intersect(Target, Range("s12")) Is Nothing Then Range("s11") = Range("s11") + Range("s12")
If Not Intersect(Target, Range("b15")) Is Nothing Then Range("b14") = Range("b14") + Range("b15")
If Not Intersect(Target, Range("c15")) Is Nothing Then Range("c14") = Range("c14") + Range("c15")
If Not Intersect(Target, Range("d15")) Is Nothing Then Range("d14") = Range("d14") + Range("d15")
If Not Intersect(Target, Range("e15")) Is Nothing Then Range("e14") = Range("e14") + Range("e15")
If Not Intersect(Target, Range("f15")) Is Nothing Then Range("f14") = Range("f14") + Range("f15")
If Not Intersect(Target, Range("g15")) Is Nothing Then Range("g14") = Range("g14") + Range("g15")
If Not Intersect(Target, Range("h15")) Is Nothing Then Range("h14") = Range("h14") + Range("h15")
If Not Intersect(Target, Range("i15")) Is Nothing Then Range("i14") = Range("i14") + Range("i15")
If Not Intersect(Target, Range("j15")) Is Nothing Then Range("j14") = Range("j14") + Range("j15")
If Not Intersect(Target, Range("k15")) Is Nothing Then Range("k14") = Range("k14") + Range("k15")
If Not Intersect(Target, Range("l15")) Is Nothing Then Range("l14") = Range("l14") + Range("l15")
If Not Intersect(Target, Range("m15")) Is Nothing Then Range("m14") = Range("m14") + Range("m15")
If Not Intersect(Target, Range("n15")) Is Nothing Then Range("n14") = Range("n14") + Range("n15")
If Not Intersect(Target, Range("o15")) Is Nothing Then Range("o14") = Range("o14") + Range("o15")
If Not Intersect(Target, Range("p15")) Is Nothing Then Range("p14") = Range("p14") + Range("p15")
If Not Intersect(Target, Range("q15")) Is Nothing Then Range("q14") = Range("q14") + Range("q15")
If Not Intersect(Target, Range("r15")) Is Nothing Then Range("r14") = Range("r14") + Range("r15")
If Not Intersect(Target, Range("s15")) Is Nothing Then Range("s14") = Range("s14") + Range("s15")
If Not Intersect(Target, Range("b18")) Is Nothing Then Range("b17") = Range("b17") + Range("b18")
If Not Intersect(Target, Range("c18")) Is Nothing Then Range("c17") = Range("c17") + Range("c18")
If Not Intersect(Target, Range("d18")) Is Nothing Then Range("d17") = Range("d17") + Range("d18")
If Not Intersect(Target, Range("e18")) Is Nothing Then Range("e17") = Range("e17") + Range("e18")
If Not Intersect(Target, Range("f18")) Is Nothing Then Range("f17") = Range("f17") + Range("f18")
If Not Intersect(Target, Range("g18")) Is Nothing Then Range("g17") = Range("g17") + Range("g18")
If Not Intersect(Target, Range("h18")) Is Nothing Then Range("h17") = Range("h17") + Range("h18")
If Not Intersect(Target, Range("i18")) Is Nothing Then Range("i17") = Range("i17") + Range("i18")
If Not Intersect(Target, Range("j18")) Is Nothing Then Range("j17") = Range("j17") + Range("j18")
If Not Intersect(Target, Range("k18")) Is Nothing Then Range("k17") = Range("k17") + Range("k18")
If Not Intersect(Target, Range("l18")) Is Nothing Then Range("l17") = Range("l17") + Range("l18")
If Not Intersect(Target, Range("m18")) Is Nothing Then Range("m17") = Range("m17") + Range("m18")
If Not Intersect(Target, Range("n18")) Is Nothing Then Range("n17") = Range("n17") + Range("n18")
If Not Intersect(Target, Range("o18")) Is Nothing Then Range("o17") = Range("o17") + Range("o18")
If Not Intersect(Target, Range("p18")) Is Nothing Then Range("p17") = Range("p17") + Range("p18")
If Not Intersect(Target, Range("q18")) Is Nothing Then Range("q17") = Range("q17") + Range("q18")
If Not Intersect(Target, Range("r18")) Is Nothing Then Range("r17") = Range("r17") + Range("r18")
If Not Intersect(Target, Range("s18")) Is Nothing Then Range("s17") = Range("s17") + Range("s18")
If Not Intersect(Target, Range("b21")) Is Nothing Then Range("b20") = Range("b20") + Range("b21")
If Not Intersect(Target, Range("c21")) Is Nothing Then Range("c20") = Range("c20") + Range("c21")
If Not Intersect(Target, Range("d21")) Is Nothing Then Range("d20") = Range("d20") + Range("d21")
If Not Intersect(Target, Range("e21")) Is Nothing Then Range("e20") = Range("e20") + Range("e21")
If Not Intersect(Target, Range("f21")) Is Nothing Then Range("f20") = Range("f20") + Range("f21")
If Not Intersect(Target, Range("g21")) Is Nothing Then Range("g20") = Range("g20") + Range("g21")
If Not Intersect(Target, Range("h21")) Is Nothing Then Range("h20") = Range("h20") + Range("h21")
If Not Intersect(Target, Range("i21")) Is Nothing Then Range("i20") = Range("i20") + Range("i21")
If Not Intersect(Target, Range("j21")) Is Nothing Then Range("j20") = Range("j20") + Range("j21")
If Not Intersect(Target, Range("k21")) Is Nothing Then Range("k20") = Range("k20") + Range("k21")
If Not Intersect(Target, Range("l21")) Is Nothing Then Range("l20") = Range("l20") + Range("l21")
If Not Intersect(Target, Range("m21")) Is Nothing Then Range("m20") = Range("m20") + Range("m21")
If Not Intersect(Target, Range("n21")) Is Nothing Then Range("n20") = Range("n20") + Range("n21")
If Not Intersect(Target, Range("o21")) Is Nothing Then Range("o20") = Range("o20") + Range("o21")
If Not Intersect(Target, Range("p21")) Is Nothing Then Range("p20") = Range("p20") + Range("p21")
If Not Intersect(Target, Range("q21")) Is Nothing Then Range("q20") = Range("q20") + Range("q21")
If Not Intersect(Target, Range("r21")) Is Nothing Then Range("r20") = Range("r20") + Range("r21")
If Not Intersect(Target, Range("s21")) Is Nothing Then Range("s20") = Range("s20") + Range("s21")
If Not Intersect(Target, Range("b24")) Is Nothing Then Range("b23") = Range("b23") + Range("b24")
If Not Intersect(Target, Range("c24")) Is Nothing Then Range("c23") = Range("c23") + Range("c24")
If Not Intersect(Target, Range("d24")) Is Nothing Then Range("d23") = Range("d23") + Range("d24")
If Not Intersect(Target, Range("e24")) Is Nothing Then Range("e23") = Range("e23") + Range("e24")
If Not Intersect(Target, Range("f24")) Is Nothing Then Range("f23") = Range("f23") + Range("f24")
If Not Intersect(Target, Range("g24")) Is Nothing Then Range("g23") = Range("g23") + Range("g24")
If Not Intersect(Target, Range("h24")) Is Nothing Then Range("h23") = Range("h23") + Range("h24")
If Not Intersect(Target, Range("i24")) Is Nothing Then Range("i23") = Range("i23") + Range("i24")
If Not Intersect(Target, Range("j24")) Is Nothing Then Range("j23") = Range("j23") + Range("j24")
If Not Intersect(Target, Range("k24")) Is Nothing Then Range("k23") = Range("k23") + Range("k24")
If Not Intersect(Target, Range("l24")) Is Nothing Then Range("l23") = Range("l23") + Range("l24")
If Not Intersect(Target, Range("m24")) Is Nothing Then Range("m23") = Range("m23") + Range("m24")
If Not Intersect(Target, Range("n24")) Is Nothing Then Range("n23") = Range("n23") + Range("n24")
If Not Intersect(Target, Range("o24")) Is Nothing Then Range("o23") = Range("o23") + Range("o24")
If Not Intersect(Target, Range("p24")) Is Nothing Then Range("p23") = Range("p23") + Range("p24")
If Not Intersect(Target, Range("q24")) Is Nothing Then Range("q23") = Range("q23") + Range("q24")
If Not Intersect(Target, Range("r24")) Is Nothing Then Range("r23") = Range("r23") + Range("r24")
If Not Intersect(Target, Range("s24")) Is Nothing Then Range("s23") = Range("s23") + Range("s24")
If Not Intersect(Target, Range("b27")) Is Nothing Then Range("b26") = Range("b26") + Range("b27")
If Not Intersect(Target, Range("c27")) Is Nothing Then Range("c26") = Range("c26") + Range("c27")
If Not Intersect(Target, Range("d27")) Is Nothing Then Range("d26") = Range("d26") + Range("d27")
If Not Intersect(Target, Range("e27")) Is Nothing Then Range("e26") = Range("e26") + Range("e27")
If Not Intersect(Target, Range("f27")) Is Nothing Then Range("f26") = Range("f26") + Range("f27")
If Not Intersect(Target, Range("g27")) Is Nothing Then Range("g26") = Range("g26") + Range("g27")
If Not Intersect(Target, Range("h27")) Is Nothing Then Range("h26") = Range("h26") + Range("h27")
If Not Intersect(Target, Range("i27")) Is Nothing Then Range("i26") = Range("i26") + Range("i27")
If Not Intersect(Target, Range("j27")) Is Nothing Then Range("j26") = Range("j26") + Range("j27")
If Not Intersect(Target, Range("k27")) Is Nothing Then Range("k26") = Range("k26") + Range("k27")
If Not Intersect(Target, Range("l27")) Is Nothing Then Range("l26") = Range("l26") + Range("l27")
If Not Intersect(Target, Range("m27")) Is Nothing Then Range("m26") = Range("m26") + Range("m27")
If Not Intersect(Target, Range("n27")) Is Nothing Then Range("n26") = Range("n26") + Range("n27")
If Not Intersect(Target, Range("o27")) Is Nothing Then Range("o26") = Range("o26") + Range("o27")
If Not Intersect(Target, Range("p27")) Is Nothing Then Range("p26") = Range("p26") + Range("p27")
If Not Intersect(Target, Range("q27")) Is Nothing Then Range("q26") = Range("q26") + Range("q27")
If Not Intersect(Target, Range("r27")) Is Nothing Then Range("r26") = Range("r26") + Range("r27")
If Not Intersect(Target, Range("s27")) Is Nothing Then Range("s26") = Range("s26") + Range("s27")
If Not Intersect(Target, Range("b30")) Is Nothing Then Range("b29") = Range("b29") + Range("b30")
If Not Intersect(Target, Range("c30")) Is Nothing Then Range("c29") = Range("c29") + Range("c30")
If Not Intersect(Target, Range("d30")) Is Nothing Then Range("d29") = Range("d29") + Range("d30")
If Not Intersect(Target, Range("e30")) Is Nothing Then Range("e29") = Range("e29") + Range("e30")
If Not Intersect(Target, Range("f30")) Is Nothing Then Range("f29") = Range("f29") + Range("f30")
If Not Intersect(Target, Range("g30")) Is Nothing Then Range("g29") = Range("g29") + Range("g30")
If Not Intersect(Target, Range("h30")) Is Nothing Then Range("h29") = Range("h29") + Range("h30")
If Not Intersect(Target, Range("i30")) Is Nothing Then Range("i29") = Range("i29") + Range("i30")
If Not Intersect(Target, Range("j30")) Is Nothing Then Range("j29") = Range("j29") + Range("j30")
If Not Intersect(Target, Range("k30")) Is Nothing Then Range("k29") = Range("k29") + Range("k30")
If Not Intersect(Target, Range("l30")) Is Nothing Then Range("l29") = Range("l29") + Range("l30")
If Not Intersect(Target, Range("m30")) Is Nothing Then Range("m29") = Range("m29") + Range("m30")
If Not Intersect(Target, Range("n30")) Is Nothing Then Range("n29") = Range("n29") + Range("n30")
If Not Intersect(Target, Range("o30")) Is Nothing Then Range("o29") = Range("o29") + Range("o30")
If Not Intersect(Target, Range("p30")) Is Nothing Then Range("p29") = Range("p29") + Range("p30")
If Not Intersect(Target, Range("q30")) Is Nothing Then Range("q29") = Range("q29") + Range("q30")
If Not Intersect(Target, Range("r30")) Is Nothing Then Range("r29") = Range("r29") + Range("r30")
If Not Intersect(Target, Range("s30")) Is Nothing Then Range("s29") = Range("s29") + Range("s30")
If Not Intersect(Target, Range("b33")) Is Nothing Then Range("b32") = Range("b32") + Range("b33")
If Not Intersect(Target, Range("c33")) Is Nothing Then Range("c32") = Range("c32") + Range("c33")
If Not Intersect(Target, Range("d33")) Is Nothing Then Range("d32") = Range("d32") + Range("d33")
If Not Intersect(Target, Range("e33")) Is Nothing Then Range("e32") = Range("e32") + Range("e33")
If Not Intersect(Target, Range("f33")) Is Nothing Then Range("f32") = Range("f32") + Range("f33")
If Not Intersect(Target, Range("g33")) Is Nothing Then Range("g32") = Range("g32") + Range("g33")
If Not Intersect(Target, Range("h33")) Is Nothing Then Range("h32") = Range("h32") + Range("h33")
If Not Intersect(Target, Range("i33")) Is Nothing Then Range("i32") = Range("i32") + Range("i33")
If Not Intersect(Target, Range("j33")) Is Nothing Then Range("j32") = Range("j32") + Range("j33")
If Not Intersect(Target, Range("k33")) Is Nothing Then Range("k32") = Range("k32") + Range("k33")
If Not Intersect(Target, Range("l33")) Is Nothing Then Range("l32") = Range("l32") + Range("l33")
If Not Intersect(Target, Range("m33")) Is Nothing Then Range("m32") = Range("m32") + Range("m33")
If Not Intersect(Target, Range("n33")) Is Nothing Then Range("n32") = Range("n32") + Range("n33")
If Not Intersect(Target, Range("o33")) Is Nothing Then Range("o32") = Range("o32") + Range("o33")
If Not Intersect(Target, Range("p33")) Is Nothing Then Range("p32") = Range("p32") + Range("p33")
If Not Intersect(Target, Range("q33")) Is Nothing Then Range("q32") = Range("q32") + Range("q33")
If Not Intersect(Target, Range("r33")) Is Nothing Then Range("r32") = Range("r32") + Range("r33")
If Not Intersect(Target, Range("s33")) Is Nothing Then Range("s32") = Range("s32") + Range("s33")
If Not Intersect(Target, Range("b36")) Is Nothing Then Range("b35") = Range("b35") + Range("b36")
If Not Intersect(Target, Range("c36")) Is Nothing Then Range("c35") = Range("c35") + Range("c36")
If Not Intersect(Target, Range("d36")) Is Nothing Then Range("d35") = Range("d35") + Range("d36")
If Not Intersect(Target, Range("e36")) Is Nothing Then Range("e35") = Range("e35") + Range("e36")
If Not Intersect(Target, Range("f36")) Is Nothing Then Range("f35") = Range("f35") + Range("f36")
If Not Intersect(Target, Range("g36")) Is Nothing Then Range("g35") = Range("g35") + Range("g36")
If Not Intersect(Target, Range("h36")) Is Nothing Then Range("h35") = Range("h35") + Range("h36")
If Not Intersect(Target, Range("i36")) Is Nothing Then Range("i35") = Range("i35") + Range("i36")
If Not Intersect(Target, Range("j36")) Is Nothing Then Range("j35") = Range("j35") + Range("j36")
If Not Intersect(Target, Range("k36")) Is Nothing Then Range("k35") = Range("k35") + Range("k36")
If Not Intersect(Target, Range("l36")) Is Nothing Then Range("l35") = Range("l35") + Range("l36")
If Not Intersect(Target, Range("m36")) Is Nothing Then Range("m35") = Range("m35") + Range("m36")
If Not Intersect(Target, Range("n36")) Is Nothing Then Range("n35") = Range("n35") + Range("n36")
If Not Intersect(Target, Range("o36")) Is Nothing Then Range("o35") = Range("o35") + Range("o36")
If Not Intersect(Target, Range("p36")) Is Nothing Then Range("p35") = Range("p35") + Range("p36")
If Not Intersect(Target, Range("q36")) Is Nothing Then Range("q35") = Range("q35") + Range("q36")
If Not Intersect(Target, Range("r36")) Is Nothing Then Range("r35") = Range("r35") + Range("r36")
If Not Intersect(Target, Range("s36")) Is Nothing Then Range("s35") = Range("s35") + Range("s36")
If Not Intersect(Target, Range("b39")) Is Nothing Then Range("b38") = Range("b38") + Range("b39")
If Not Intersect(Target, Range("c39")) Is Nothing Then Range("c38") = Range("c38") + Range("c39")
If Not Intersect(Target, Range("d39")) Is Nothing Then Range("d38") = Range("d38") + Range("d39")
If Not Intersect(Target, Range("e39")) Is Nothing Then Range("e38") = Range("e38") + Range("e39")
If Not Intersect(Target, Range("f39")) Is Nothing Then Range("f38") = Range("f38") + Range("f39")
If Not Intersect(Target, Range("g39")) Is Nothing Then Range("g38") = Range("g38") + Range("g39")
If Not Intersect(Target, Range("h39")) Is Nothing Then Range("h38") = Range("h38") + Range("h39")
If Not Intersect(Target, Range("i39")) Is Nothing Then Range("i38") = Range("i38") + Range("i39")
If Not Intersect(Target, Range("j39")) Is Nothing Then Range("j38") = Range("j38") + Range("j39")
If Not Intersect(Target, Range("k39")) Is Nothing Then Range("k38") = Range("k38") + Range("k39")
If Not Intersect(Target, Range("l39")) Is Nothing Then Range("l38") = Range("l38") + Range("l39")
If Not Intersect(Target, Range("m39")) Is Nothing Then Range("m38") = Range("m38") + Range("m39")
If Not Intersect(Target, Range("n39")) Is Nothing Then Range("n38") = Range("n38") + Range("n39")
If Not Intersect(Target, Range("o39")) Is Nothing Then Range("o38") = Range("o38") + Range("o39")
If Not Intersect(Target, Range("p39")) Is Nothing Then Range("p38") = Range("p38") + Range("p39")
If Not Intersect(Target, Range("q39")) Is Nothing Then Range("q38") = Range("q38") + Range("q39")
If Not Intersect(Target, Range("r39")) Is Nothing Then Range("r38") = Range("r38") + Range("r39")
If Not Intersect(Target, Range("s39")) Is Nothing Then Range("s38") = Range("s38") + Range("s39")
If Not Intersect(Target, Range("b42")) Is Nothing Then Range("b41") = Range("b41") + Range("b42")
If Not Intersect(Target, Range("c42")) Is Nothing Then Range("c41") = Range("c41") + Range("c42")
If Not Intersect(Target, Range("d42")) Is Nothing Then Range("d41") = Range("d41") + Range("d42")
If Not Intersect(Target, Range("e42")) Is Nothing Then Range("e41") = Range("e41") + Range("e42")
If Not Intersect(Target, Range("f42")) Is Nothing Then Range("f41") = Range("f41") + Range("f42")
If Not Intersect(Target, Range("g42")) Is Nothing Then Range("g41") = Range("g41") + Range("g42")
If Not Intersect(Target, Range("h42")) Is Nothing Then Range("h41") = Range("h41") + Range("h42")
If Not Intersect(Target, Range("i42")) Is Nothing Then Range("i41") = Range("i41") + Range("i42")
If Not Intersect(Target, Range("j42")) Is Nothing Then Range("j41") = Range("j41") + Range("j42")
If Not Intersect(Target, Range("k42")) Is Nothing Then Range("k41") = Range("k41") + Range("k42")
If Not Intersect(Target, Range("l42")) Is Nothing Then Range("l41") = Range("l41") + Range("l42")
If Not Intersect(Target, Range("m42")) Is Nothing Then Range("m41") = Range("m41") + Range("m42")
If Not Intersect(Target, Range("n42")) Is Nothing Then Range("n41") = Range("n41") + Range("n42")
If Not Intersect(Target, Range("o42")) Is Nothing Then Range("o41") = Range("o41") + Range("o42")
If Not Intersect(Target, Range("p42")) Is Nothing Then Range("p41") = Range("p41") + Range("p42")
If Not Intersect(Target, Range("q42")) Is Nothing Then Range("q41") = Range("q41") + Range("q42")
If Not Intersect(Target, Range("r42")) Is Nothing Then Range("r41") = Range("r41") + Range("r42")
If Not Intersect(Target, Range("s42")) Is Nothing Then Range("s41") = Range("s41") + Range("s42")
End Sub