Excel Formula to VBA

[Shantanu_4612]

Hi,

Need your help to convert the below formula into a Button VBA,

If I use this formula directly on the sheet it is getting stuck into a Circular Referance,

Circular referance is because, Q7 is getting calculated from the Range selected, but I want the entries to happen in the Range as per Q7,

i.e, Entries in the range, calculates Q7, once Q7 exceed J5, I want the default entry to be placed,

Please help me with a formula or a VBA,

Please help,

Formula:
[FONT=Calibri,sans-serif]IF(AND(NOT(ISNUMBER(FIND("-",IFERROR((VLOOKUP(($A12&C$10),Leave_Requests!$A:$E,5,0)),"-"),1))),$Q$7<$J$5),((VLOOKUP(($A12&C$10),Leave_Requests!$A:$E,5,0))),Leave_Requests!$J$1)[/FONT]
[FONT=Calibri,sans-serif] [/FONT]
[FONT=Calibri,sans-serif]Range : C12 to AG 10000[/FONT]
[FONT=Calibri,sans-serif] [/FONT]
[FONT=Calibri,sans-serif]Name of Sheet to Execute Button VBA is “Planner”[/FONT]