麻烦全网大师，帮忙根据以下公式，用Excel VBA代码呈现，自动计算数据

根据附件工作表单元格公式用VBA体现，如果删除了某行将也不会影响到公式，如果增加了行，也能自动计算，可以让其他人无法从单元格内看到相应的公式。

具体公式如下以及附件所示：

L2=IF(AO2<=4000,1900,IF(AO2<=5000,2000,IF(AO2<=7000,2100,IF(AO2>=7001,2200))))
S2=M2+N2+O2+P2+Q2+R2
V2=L2/21.75/8
X2=ROUND(IF(AO2>0,V2*21.75*8,V2*W2),2)
Z2=ROUND(IF(AO2>0,0,V2*Y2*1.5),2)
AB2=ROUND(IF(AA2<=0,0,V2*AA2*2),2)
AD2=ROUND(IF(AO2>0,0,V2*AC2*3),2)
AE2=ROUND(IF(AO2>0,AO2-L2-AB2,0),2)
AG2=AF2/21.75
AH2=ROUND(IF(T2>21.75,AG2*21.75,AG2*T2),2)
AI2=TRUNC(AJ2+AK2,2)
AL2=ROUND(X2+Z2+AB2+AD2+AE2+AH2+AI2,2)
AM2=ROUND(IF(T2<=0,AO2,AO2/21.75/8*S2),2)
AN2=IF(T2=0,"0",AL2-AM2)
AP2=SUM(AQ2:BB2)
BC2=SUM(BD2:BO2)
BP2=BQ2+BR2+BS2+BT2
BQ2=CW2
BR2=CX2
BS2=CY2
BU2=SUMPRODUCT((专项附加!$A$3:$A$320=$B2)*1,专项附加!$Q$3:$Q$320)
BV2=AN2-BP2
BW2==IF(ROUND(IF((AP2-BC2-BU2)<36000,((AP2-BC2-BU2))*3%,IF((AP2-BC2-BU2)<=144000,((AP2-BC2-BU2))*10%-2520,IF((AP2-BC2-BU2)<=300000,((AP2-BC2-BU2))*20%-16920,IF((AP2-BC2-BU2)<=420000,((AP2-BC2-BU2))*25%-31920,IF((AP2-BC2-BU2)<=660000,((AP2-BC2-BU2))*30%-52920))))),2)-BX2<0,0,ROUND(IF((AP2-BC2-BU2)<36000,((AP2-BC2-BU2))*3%,IF((AP2-BC2-BU2)<=144000,((AP2-BC2-BU2))*10%-2520,IF((AP2-BC2-BU2)<=300000,((AP2-BC2-BU2))*20%-16920,IF((AP2-BC2-BU2)<=420000,((AP2-BC2-BU2))*25%-31920,IF((AP2-BC2-BU2)<=660000,((AP2-BC2-BU2))*30%-52920))))),2)-BX2)
BX2=SUM(BY2:CJ2)
CS2=BW2+CK2+CL2+CM2+CN2+CO2+CP2+CQ2+CR2
CT2=BV2-CS2