userform to input data

One more try for today. Hopefully this one will work for you. There will be a few extra spaces between each set, working on getting that down to 1 or no spaces.

Private Sub CommandButton1_Click()
    Dim NextRow As Long
        
'   Determine next empty row
    NextRow = Application.WorksheetFunction. _
        CountA(Range("B:E"))


'   Transfer the Date
    Cells(NextRow + 4, 2) = TextBox1.Text
'   Transfer the Case
    Cells(NextRow + 4, 3) = TextBox2.Text
'   Transfer In-Charge
    Cells(NextRow + 4, 4) = TextBox3.Text
'   Transfer 1
    Cells(NextRow + 5, 5) = TextBox4.Text
'   Transfer 2
    Cells(NextRow + 6, 5) = TextBox5.Text
'   Transfer 3
    Cells(NextRow + 7, 5) = TextBox6.Text

    
'Clear Case box
    Me.TextBox2.Value = ""
'Clear In-Charge box
    Me.TextBox3.Value = ""
'Clear 1 box
    Me.TextBox4.Value = ""
'Clear 2 box
    Me.TextBox5.Value = ""
'Clear 3 box
    Me.TextBox6.Value = ""
    Exit Sub

    
End Sub