Data from a Userform is added to the top if the worksheet

Try this.

Private Sub CommandButton1_Click()

  Set rngInput = Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)

  With rngInput
    .Value = TextBox1.Text
    .Offset(,1) = Textbox2.Text
    .Offset(,2) = Textbox3.Text
    .Offset(,3) = Textbox4.Text
   End With

End Sub