Private Sub CommandButton2_Click()
Dim LastCell As Range ' finding the last non-blank line on a sheet
                       ' setting to the last row of the sheet in the column
Set LastCell = Worksheets("Entry").Range("A:A").Cells(Range("A:A").Cells.Count)
' move to the last non-empty line of the sheet
If IsEmpty(LastCell) Then Set LastCell = LastCell.End(xlUp) 'setting to an empty cell
Set LastCell = LastCell.Offset(1, 0) ' inserting data from form text fields into a sheet
LastCell.Value = Entry.TextBox1
LastCell.Offset(0, 1).Value = Entry.TextBox2
LastCell.Offset(0, 2).Value = Entry.ComboBox1
LastCell.Offset(0, 3).Value = Entry.CheckBox1
'empty text fields
Entry.TextBox1.Value = vbNullString
Entry.TextBox2.Value = vbNullString
Entry.ComboBox1.Value = vbNullString
Entry.CheckBox1.Value = vbNullString
End Sub