been fighting with this one...time to ask an expert!!

I want my values in the of the test boxes
to start in Column B.....no matter what
I change in the range formula it starts in Column A
help....suggestions!!

Private Sub CommandButton1_Click()
Enter.Hide
MainMenu.Show
End Sub

Private Sub CommandButton2_Click()
Dim Nextrow As Integer
Sheet5.Activate
Nextrow = Application.WorksheetFunction.CountA(Range("B:B")) + 2
If TextBox1.Value = " " Then
MsgBox "Name field cannot be empty."
Exit Sub
Else
If TextBox2 = "" Then
MsgBox "Name field cannot be empty."
Exit Sub
Else
Sheet5.Cells(Nextrow, 1).Value = TextBox1.Value
Sheet5.Cells(Nextrow, 3).Value = TextBox2.Value
TextBox1.Text = ""
TextBox2.Text = ""
TextBox1.SetFocus
End If
End If
End Sub

Private Sub UserForm_Click()

End Sub