Convert Formulas to VBA Code

Dear Experts,

Kindly Convert the below formulas to VBA code.

Sheet1 having morethan 25000 lines. Please help me its very urgent.

=IF(BT3=AI3,"CURRENT MONTH","CATCHUP/CATCHDOWN").............Values in (AK3)
=IF(CB3<0,0,IF(CB3>1,1,CB3))........ ...................Values in (AL3)
=IF(ISERROR((AL3/CD3)*MIN(CF3,CG3,CE3)),0,((AL3/CD3)*MIN(CF3,CG3,CE3))) .............Values in (AM3)
=IF(BZ3="CURRENT MONTH",IF(AL3<0,0,AL3),0)............................................Values in (AN3)
=IF(CC3=0,0,SUMIF(A:A,A3,CC:CC)).......................................................Values in (AO3)
=IF(BZ3="CURRENT MONTH",IF(C3<$CG$1,100%,IF(ISERROR((D3-C3)/($CG$2-$CG$1)),100%,((D3-C3)/($CG$2-$CG$1)))),0)....Values in (AP3)
=IF(BZ3="CURRENT MONTH",IF(C3<$CG$1,100%,($CG$2-C3)/($CG$2-$CG$1)),0) ...............................Values in (AQ3)
=IF(BZ3="CURRENT MONTH",IF(D3="NULL",100%,IF(D3>$CG$2,100%,(D3-$CG$1)/($CG$2-$CG$1))),0)...............Values in (AR3)
=IF(BZ3="CURRENT MONTH",IF(OR(AO3="NULL",AO3=100633,AO3=104857,AO3=100634),0,AL3),0) ..............Values in (AW3)
=IF(BZ3="CURRENT MONTH",AK3,0) .................................................................Values in (AT3)
=IF(BZ3="CURRENT MONTH",SUMIF(A:A,A3,CH:CH),0) ............................Values in (AU3)
=IF(BZ3="CURRENT MONTH",SUMIF(A:A,A3,CI:CI),0) .........................................Values in (AV3)
=IF(OR(CH3=0,AV3="company",BM3="Level 9",BM3="Level 10",BM3="Level 11",CJ3<80),"-",IF(CK3=0,"Buffer","-")).............Values in (AW3)
=IF(CL3="Buffer",CA3,0) ........................................................Values in (AX3)
=IF(OR(BM3="level 1",BM3="level 2"),CA3,0)..................................Values in (AY3)

Thanks,

Kumar