User Form Output

This is the current code for my userform.

Ive created a loop so that if B5 is blank it goes to the next cell and keeps going on till it gets to the end then inputs data along that row.

What i want is that when the user selects the seat it inputs it into a specific row.

For example;
Row 1 - data goes into row 5.
Row 2 - data goes into row 6.
Row 10-data goes into row 14.

There are only 36 seats.

Private Sub Cancmd_Click()
Unload Me
End Sub
-----------------------------------------------------------------------------------------
Private Sub ClearCMD_Click()
Unload Me
AddNewForm.Show
End Sub
-----------------------------------------------------------------------------------------
Private Sub Entcmd_Click()
ActiveWorkbook. Sheets("Input Page").Activate
Range("B5").Select

Do
If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If
Loop Until IsEmpty(ActiveCell) = True