Insert Formula in Macros

[TWINKLEMARVEL]

Pls help me out to insert the below formula in the macro given below. I need the formula to be in cell N2

=IF(L2="","",IF(L2=0,1,IF(L2<=4,L2,IF(AND(L2>=5,L2<=7),"a.5-7",IF(AND(L2>=8,L2<=15),"b.8-15",IF(AND(L2>=16,L2<=30),"c.16-30",IF(AND(L2>=31,L2<=60),"d.30-60","e.>60")))))))

Range("N2").Select
    ActiveSheet.Paste
    Range(Selection, Selection.End(xlDown)).Select

 

[njimack]

Range("N2").FormulaR1C1 = _
        "=IF(R[1]C[10]="""","""",IF(R[1]C[10]=0,1,IF(R[1]C[10]<=4,R[1]C[10],IF(AND(R[1]C[10]>=5,R[1]C[10]<=7),""a.5-7"",IF(AND(R[1]C[10]>=8,R[1]C[10]<=15),""b.8-15"",IF(AND(R[1]C[10]>=16,R[1]C[10]<=30),""c.16-30"",IF(AND(R[1]C[10]>=31,R[1]C[10]<=60),""d.30-60"",""e.>60"")))))))"

 

[John Davis]

Pls help me out to insert the below formula in the macro given below. I need the formula to be in cell N2

=IF(L2="","",IF(L2=0,1,IF(L2<=4,L2,IF(AND(L2>=5,L2<=7),"a.5-7",IF(AND(L2>=8,L2<=15),"b.8-15",IF(AND(L2>=16,L2<=30),"c.16-30",IF(AND(L2>=31,L2<=60),"d.30-60","e.>60")))))))

Range("N2").Select
    ActiveSheet.Paste
    Range(Selection, Selection.End(xlDown)).Select

I'm not sure about where you want the formula, but maybe:

Range("N2").Formula = "=IF(L2="""","""",IF(L2=0,1,IF(L2<=4,L2,IF(AND(L2>=5,L2<=7),""a.5-7"",IF(AND(L2>=8,L2<=15),""b.8-15"",IF(AND(L2>=16,L2<=30),""c.16-30"",IF(AND(L2>=31,L2<=60),""d.30-60"",""e.>60"")))))))"

 

[TWINKLEMARVEL]

Thank you so much njimack and John davis.


The solution provided by John davis works fine.


Thank you once again.

 

[John Davis]

Thank you so much njimack and John davis.


The solution provided by John davis works fine.


Thank you once again.

You're welcome. Glad it worked for you.