Help for vba code for a formula in two cells

[Dinesh_Excel]

Hi Friends,

I have a sheet where I need a formula(as below) to be inserted in the in column "B" and "C" using a vba code.

Column B = NETWORKDAYS(A2,$D$2)-1
Column C = =IF(B2>90,">90 Days",(IF(B2<6,"0-5 Days",IF(B2<31,"6-30 Days",IF(B2<91,"31-90 Days")))))

Attached sheet for your reference.

Data in column A and D will change every month.

Request your help on this.

 

[jindon]

Should be something like

Sub test()
    Range("a2", Range("a" & Rows.Count).End(xlUp)).Offset(, 1).Resize(, 2).Formula = _
    Array("=NETWORKDAYS(A2,$D$2)-1", "=IF(B2>90,"">90 Days"",(IF(B2<6,""0-5 Days"",IF(B2<31,""6-30 Days"",IF(B2<91,""31-90 Days"")))))")
End Sub

 

[Dinesh_Excel]

Great Jindon ....Its working fine.
Thank you very much for your help....