$($Dont write cells with range or worksheet write with cells.value type $)$There are standard equations for calculating the heat capacity of a gas at specified temperature. One common heat capacity equation is a third order polynomial as follows;

$C=a+bT+c{T}^2+d{T}^3$

If the coefficients a to $d$ are known for a particular gas, you can calculate the heat capacity. Write a VBA function to calculate the heat capacity and write a sub procedure to test your function. Please ask the user to enter the number of gases she$/$he wants to calculate the heat capacity and write your code using FOR NEXT loop. Please let the user know that the temperature should be entered in Celcius Degrees. Please use double precision variables. Outputs should be written to Excel as shown below. INPUTS: a$,$ b$,$ c$,$ d$,$ and Temperature OUTPUT: Heat capacity

$\backslash$table$[[,,$A$,$C$],[1,$Coefficient a$,2,89E-02,],[2,$Coefficient b$,4,15E-06,],[3,$Coefficient c$,3,19E-09,],[4,$Coefficient d$,-1,97E-12,],[5,$Temperature in Celcius degrees,$20,],[6,$Heat capacity of gas $1,3,736148,],[7,,,],[8,$Coefficient a$,3,35E-02,],[9,$Coefficient b$,6,88E-06,],[10,$Coefficient c$,7,61E-09,],[11,$Coefficient d$,-3,59E-12,],[12,$Temperature in Celcius degrees,$40,],[13,$Heat capacity of gas $2,3,742682,],[14,,,],[15,,,]]$