I have already done the part of Estsingle, but I don't know how to write the EstBatch. I JUST NEED THE VBA CODE FOR THIS QUESTION. Please help me$.$ You have just been hired by Olympus Tours $($OT$),$ a bus rental company located in Orem, Utah. OT provides buses for groups such as schools, family reunions, and travel clubs. The smallest group OT will bus is $20$ people and the largest group is $120$ people. Two types of buses are available for use: small buses $(25$ maximum riders per bus$)$ and large buses $(60$ maximum riders per bus$).$ Assume that OT has access to all of the small and large buses it needs. Table $1.$ Bus Combinations $0$ # of Buses Option Riders Small Big$|$ Min $2011$ Max $25$ Min $26220$ Max $50$ Min $5131$ Max $60$ Min $61411$ Max $85$ Min $8652$ Max$12000$ OT's pricing structure is as follows. The base price $($BP$)$ is calculated by multiplying the number of people $($P$)$ included in the trip by a per$-$person base rate $($PPBR$).$ BP $=$ P $*$ PPBRThe base price covers trips up to and including five hours in duration. Customers are charged extra for tours that last longer than $5$ hours. For example, a bus rented for $6\mathrm{.}5$ hours would have $1\mathrm{.}5$ overtime hours $($OH$).$ The maximum number of overtime hours per day is four, which means any trip lasting nine hours or more has the same number of overtime hours regardless of the duration of time that exceeds $9$ hours. The overtime charge $($OC$)$ is calculated by multiplying the base price $($BP$)$ by the overtime hours $($OH$)$ multiplied by the extra hourly percentage $($EHP$)$ as follows: OC $=$ BP $*$ OH $*$ EHP Table $2$ shows some example price calculations that include partial hours. Table $2$ Example Pricing Calculations $0\mathrm{.}4$ Number of Per$-$Person Base Base Overtime Extra Hourly Overtime Total Hours People Rate Price Hours Percent Charge Price P PPBR$*$ BP $$ OH EHP OC $20$ $$10$ $$2005\mathrm{.}425\%$ $$20$ $$22025$ $$12$ $$3006\mathrm{.}61\mathrm{.}625\%$ $$120$ $$42030$ $$8$ $$24011\mathrm{.}34\mathrm{.}025\%$ $$240$ $$48035$ $$7$ $$2455\mathrm{.}40\mathrm{.}430\%$ $$29$ $$27445$ $$15$ $$6756\mathrm{.}61\mathrm{.}630\%$ $$324$ $$99950$ $$5$ $$25011\mathrm{.}34\mathrm{.}030\%$ $$300$ $$550$ Note: $*$These numbers are not calculated in your code. Your sub should simply take whatever value for PPBR and EHP that is given in the setup portion of the single estimate and use that in your calculations. These are just example values you can use to test your outputs afterward. Your task is to create both $(1)$ a flowchart and $(2)$ a VBA program in Excel that will pick the right number of buses and that will calculate the correct price for the number of people and hours specified.Because the pricing parameters $($PPBR and EHP$)$ are somewhat stable, they are stored in the setup section. When the program runs $($both the single and the batch$),$ it should obtain the values for PPBR and EHP from the Setup section. The value of PPBR and EHP should be whatever the value of cells C$22,$ and C$23$ are at the time it runs $($this can be any values you choose$).$ Do not hardcode these values in your code. Based on the values in the setup section and the number of people and hours specified, your program should calculate the correct outcomes. Your program should work correctly for single$-$trip estimates and for a batch of estimates. Your program should only pull values from the worksheet. You should not be using input boxes. Single$-$Trip Estimates. The program should work when the user wants to estimate one trip at a time. For a single trip, the user enters inputs directly into the $[$User Form$]$ tab and presses the Run Single button. In this scenario, the user will enter the number of people $($P$)$ and the tour duration in hours $($H$)$ into the appropriate cells in the User Form. Your program should then use the pricing parameters $($PPBR and EHP$)$ to calculate the amount the customer will be charged per day. Note: if the user requests fewer than $20$ or greater than $120$ passengers, the user should see a pop$-$up message that indicates that they've selected too few or too many passengers and the outputs should all be set to zero. Figure $1$ shows the $($User Form$]$ tab. Do not worry too much about the format of your numbers in cells C$13$:C$18$just be sure to declare your variables as the specified type. If there is a multi$-$day tour, the program will be run for each day of the multi$-$day tour. Thus your program does not need to support calculations for more than one day at a time. Figure $1$: $[$User Form$]$ TabE A $5$ ZA P H AT Run Single $$ B $$ D $2.3$ Olympus Tours $45$ Inputs $6$ Customer Name Stanfield Grop $7$ Date of Tour $1/5/2017$ Date $89$ Number of People $120$ Integer $10$ Number of Hours H $10$ Single $1112$ Outputs $13$ Number of Small Busses NS $0$ Integer $14$ Number of Large Busses NL $2$ Integer $15$ Base Price BP $1200$ Currency $16$ Overtime Hours OH $4$ Single $17$ Overtime Charge OC $1200$ Currency $18$ Total Price $$ $$2,400\mathrm{.}00$ Currency $192021$ Setup $22$ Per$-$person Base Rate PPBR $$10$ Currency $23$ Extra Hourly Percent EHP $25\%$ Single Run BatchThe $[$Batch Input$]$ tab. Figure $2$ explains the data on the $[$Batch Input$]$ tab. All passenger inputs for Batch Estimates will be between $20$ and $120$ people. Figure $2$: $[$Batch Input$]$ Tab Name B $1/5/2017$ Trip Date $1$ Davis Schools $261+3645$ Willie Wrestling Number of people Hours $1/6/2017$ The $[$Batch Output$]$ tab. Figure $3$ shows how your program should organize the outputs on the $[$Batch Output$]$ tab. Figure $3$: $[$Batch Output$]$ Tab. $1$ Customer Date $2$ Davis Schools $1/5/20173$ Willie Wrestling $1/6/20174$ Dahle Reunion $1/6/20175$ Stanfield Group $1/7/2017$ Instructions User Form $$ D E G H $1$ People Hours PPBR EHP NS NL BP OH $616$ $$10\mathrm{.}0025\%11$ $$610\mathrm{.}001204$ $$10\mathrm{.}0025\%10$ $$200\mathrm{.}000557$ $$10\mathrm{.}0025\%01$ $$550\mathrm{.}00212010$ $$10\mathrm{.}0025\%02$ $$1,200\mathrm{.}004$ Batch Input Batch Output OC TP $$152\mathrm{.}50$ $$762\mathrm{.}50$ $$0\mathrm{.}00$ $$200\mathrm{.}00$ $$275\mathrm{.}00$ $$825\mathrm{.}00$ $$1,200\mathrm{.}00$ $$2,400\mathrm{.}00+$ READYOption Explicit Sub EstSingle$()$ Dim num$\_$people As Integer Dim num$\_$big$\_$bus As Integer Dim num$\_$small$\_$bus As Integer Dim BP As Currency Dim PPBR As Currencyl Dim OC As Currency Dim TP As Currency Dim OH As Integer Dim EHP As Single Sheets$("$User Forme"$).$Activate OH $=$ Range$("$C$10")-5$ Range$("$C$16")=$ OH $=$ PPBR $=$ Range$("$C$22")$ EHP $=$ Range$("$C$23")$ num$\_$people $=$ Range$("$C$9")$ If num$\_$people $<20$ Then Call MsgBox$("$You select too few passangers"$)$ End If If num$\_$people $>120$ Then Call MsgBox$("$You select too many passangers"$)$ End If If num$\_$people $>=20$ And num$\_$people $<=25$ Then num$\_$small$\_$bus $=1$ num$\_$big$\_$bus $=0$ End If If num$\_$people $>=26$ And num$\_$people $<=50$ Then num$\_$small$\_$bus $=2$ num$\_$big$\_$bus $=0$ End If If num$\_$people $>=51$ And num$\_$people $<=60$ Then num$\_$small$\_$bus $=0$num$\_$big$\_$bus $=1$ End If If num$\_$people $>=60$ And num$\_$people $<=85$ Then num$\_$small$\_$bus $=1$ num$\_$big$\_$bus $=1$ End If If num$\_$people $>=86$ And num$\_$people $<=120$ Then num$\_$small$\_$bus $=0$ num$\_$big$\_$bus $=2$ End If Range$("$C$13")=$ num$\_$small$\_$bus Range$("$C$14")=$ num$\_$big$\_$bus BP $=$ num$\_$people $*$ PPBR Range$("$C$15")=$ BP OC $=$ BP OH EHP Range$("$C$17")-$ OC TP $=$ BP $+$ OC Range$("$C$18")=$ TP End Sub Sub EstBatch Sheets$("$Batch Input"$).$Activate Sheets$("$Batch Output"$).$ Activate Dim i As Integer i $=2$ While $(($Range$("$Ai$")>0))$ End Sub