This VBA code only brings up $1$ row of results in the "Batch Output" sheet. How do I change this code to output all of the rest of the data?

Sub RunBatch$()$

$\text{'}$ Declarations

Dim P As Integer

Dim H As Double

Dim PPBR As Double

Dim EHP As Double

Dim BP As Double

Dim OH As Double

Dim OC As Double

Dim TP As Double

Dim smallBuses As Integer

Dim largeBuses As Integer

Dim currentRow As Integer

Dim outputRow As Integer

$\text{'}$ Read parameters

PPBR $=$ Sheets$("$User Form"$).$Range$("$C$22").$Value

EHP $=$ Sheets$("$User Form"$).$Range$("$C$23").$Value

$\text{'}$ Initialize starting row for output

outputRow $=2$

$\text{'}$ Initialize starting row for input

currentRow $=1$

$\text{'}$ Loop through batch input until the end of data

Do While Sheets$("$Batch Input"$).$Cells$($currentRow$,1).$Value

$\text{'}$ Read inputs and ensure they are the correct data type

P $=$ Sheets$("$Batch Input"$).$Cells$($currentRow $+1,1).$Value

H $=$ Sheets$("$Batch Input"$).$Cells$($currentRow $+2,1).$Value

$\text{'}$ Check if P and H are numeric

If Not IsNumeric$($P$)$ Or Not IsNumeric$($H$)$ Then

MsgBox "Invalid data at block starting at row $"$ & currentRow & $".$ Please ensure all data is numeric."

Exit Sub

End If

$\text{'}$ Determine number of buses needed

If P Then

smallBuses $=1$

largeBuses $=0$

ElseIf P Then

smallBuses $=2$

largeBuses $=0$

ElseIf P Then

smallBuses $=0$

largeBuses $=1$

ElseIf P Then

smallBuses $=1$

largeBuses $=1$

Else

smallBuses $=0$

largeBuses $=2$

End If

$\text{'}$ Calculate prices

BP $=$ P $*$ PPBR

If H $>5$ Then

OH $=$ H $-5$

If OH $>4$ Then OH $=4$

OC $=$ BP $*$ OH $*$ EHP

Else

OH $=0$

OC $=0$

End If

TP $=$ BP $+$ OC

$\text{'}$ Output results to Batch Output sheet

Sheets$("$Batch Output"$).$Cells$($outputRow$,1).$Value $=$ Sheets$("$Batch Input"$).$Cells$($currentRow$,1).$Value $\text{'}$ Customer $($Name$)$

Sheets$("$Batch Output"$).$Cells$($outputRow$,2).$Value $=$ Sheets$("$Batch Input"$).$Cells$($currentRow$,2).$Value $\text{'}$ Date $($Trip Date$)$

Sheets$("$Batch Output"$).$Cells$($outputRow$,3).$Value $=$ P $\text{'}$ People

Sheets$("$Batch Output"$).$Cells$($outputRow$,4).$Value $=$ H $\text{'}$ Hours

Sheets$("$Batch Output"$).$Cells$($outputRow$,5).$Value $=$ PPBR $\text{'}$ PPBR

Sheets$("$Batch Output"$).$Cells$($outputRow$,6).$Value $=$ EHP $\text{'}$ EHP

Sheets$("$Batch Output"$).$Cells$($outputRow$,7).$Value $=$ smallBuses $\text{'}$ NS $($Number of Small buses$)$

Sheets$("$Batch Output"$).$Cells$($outputRow$,8).$Value $=$ largeBuses $\text{'}$ NL $($Number of Large buses$)$

Sheets$("$Batch Output"$).$Cells$($outputRow$,9).$Value $=$ BP $\text{'}$ BP $($Base Price$)$

Sheets$("$Batch Output"$).$Cells$($outputRow$,10).$Value $=$ OH $\text{'}$ OH $($Overtime Hours$)$

Sheets$("$Batch Output"$).$Cells$($outputRow$,11).$Value $=$ OC $\text{'}$ OC $($Overtime Charge$)$

Sheets$("$Batch Output"$).$Cells$($outputRow$,12).$Value $=$ TP $\text{'}$ TP $($Total Price$)$

$\text{'}$ Move to the next block

currentRow $=$ currentRow $+3$

outputRow $=$ outputRow $+1$

Loop

End Sub