Can someone write a code for this? It's supposed to be simple but I can't get it to happen. This is to be done in Visial Basic in Excel. I know we're supposed to use relative references like "Activecell.value" to call Radius and Height. And then create a button that executes or runs the program.

Week 3 HW 1. The volume and the area of the curved surface of a right circular cone can be computed with the following VBA expressions V 3.141593*r A 2 * h/3 and A (3.141593*r 2)+(3.141593*r*s) (3.141593 * rA2)+ (3.141593*r sqrt(h2+rA2)) where V volume (m3) 32,r - radius (m), h -height (m) and s the length of a side of the cone. Design an interface that enters values for r and h on a worksheet. Use a Sub procedure to compute V and A and then display them back on the worksheet. Test the program with r- 2 and h 4. Week 3 HW 1. The volume and the area of the curved surface of a right circular cone can be computed with the following VBA expressions V 3.141593*r A 2 * h/3 and A (3.141593*r 2)+(3.141593*r*s) (3.141593 * rA2)+ (3.141593*r sqrt(h2+rA2)) where V volume (m3) 32,r - radius (m), h -height (m) and s the length of a side of the cone. Design an interface that enters values for r and h on a worksheet. Use a Sub procedure to compute V and A and then display them back on the worksheet. Test the program with r- 2 and h 4