Input Box based on Another Cell Info Macro

I am trying to create a Check In/Out Form for Computer Inventory.
The Status Column (A) has a drop down for "Going Out" "Coming In" and "Ready"
Based on what the Status Column says, I would like a pop up with an input box to show.
If the Status Column is set to "Going Out", the input popup should say, "Please Enter User's Name". The information entered should go into the corresponding column and Row(If "Going Out" is in A2 then the name entered should go into E2, A3, then E3, and so on).

If the Status Column is set to "Coming In", again, the input popup should say, "Please Enter User's Name" and this information go it F2, F3, etc.

If Status is set to Ready, then nothing needs to happen.

I was able to figure out how to get the pop up box but, I can't get the information to go into the corresponding row.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub

Select Case Target.Text
Case "Going Out"
    Call GoingOut
    
Case "Coming In"
    Call ComingIn
    
Case "Ready for Users"
    Exit Sub
    
Case Else
    Exit Sub

End Select
    
End Sub

Sub GoingOut()
    Dim Out As String
    
    Out = InputBox(Prompt:="Please enter user's name.", Title:="User Name")
    
    Sheets("In&Out").Range("E2").Value = Out
    
    
End Sub

Sub ComingIn()
    Dim NewIn As String
    
    NewIn = InputBox(Prompt:="Please enter user's name.", Title:="User Name")
    Sheets("In&Out").Range("F2").Value = NewIn
End Sub