If J$6$ is selected, the following code checks if the value in J$12$ is $0-330,$ if so$,$ it populates S$1$ in J$18$ and divides the value in J$14$ by $360.$ If the value in J$12$ is $331-500,$ it populates S$1$ in J$18$ and it divides the value in J$14$ by $240.$ If the value in J$12$ is $500-600,$ it populates S$2$ in J$18$ and it divides the value in J$14$ by $180.$ If the value in J$12$ is $661-1000,$ it populated S$2$ in J$18.$

If cs$.$Range$("$J$6")="$DC$"$ Then

If cs$.$Range$("$J$12")>=0$ And cs$.$Range$("$J$12")<=330$ Then

cs$.$Range$("$J$18")="$S$1"$

cs$.$Range$("$J$20")=$ Application.WorksheetFunction.Ceiling$($cs$.$Range$("$J$14")/360,1)$

ElseIf cs$.$Range$("$J$12")>=331$ And cs$.$Range$("$J$12")<=500$ Then

cs$.$Range$("$J$18")="$S$1"$

cs$.$Range$("$J$20")=$ Application.WorksheetFunction.Ceiling$($cs$.$Range$("$J$14")/240,1)$

ElseIf cs$.$Range$("$J$12")>=500$ And cs$.$Range$("$J$12")<=660$ Then

cs$.$Range$("$J$18")="$S$2"$

cs$.$Range$("$J$20")=$ Application.WorksheetFunction.Ceiling$($cs$.$Range$("$J$14")/180,1)$

ElseIf cs$.$Range$("$J$12")>=661$ And cs$.$Range$("$J$12")<=1000$ Then

cs$.$Range$("$J$18")="$S$2"$

cs$.$Range$("$J$20")=$ Application.WorksheetFunction.Ceiling$($cs$.$Range$("$J$14")/120,1)$

End If

Edit the code to implement the following

For S$1$:

If value in J$12$ is $0-330$ and if J$12$ times J$14$ is more than $120000$ then divide J$14$ by $360.$ If value in J$12$ is $331-500$ if J$12$ times J$14$ is more than $120000$ the divide J$14$ by $240.$ Otherwise, if J$12$ times J$14$ is than less than $120000$ divide J$14$ by $360.$

For S$2$:

If value in J$12$ is $500-660$ and if J$12$ times J$14$ is more than $120000$ then divide J$14$ by $180.$ If value in J$12$ is $661-1000$ if J$12$ time J$14$ is more than $120000$ the divide J$14$ by $120.$ Otherwise, if J$12$ times J$14$ is than less than $120000$ divide J$14$ by $180.$