Is there a way to modify this code where the cells that are populated with
the Textbox1.Text are cells A1 through A8

Private Sub CommandButton1_Click()
Dim LastRow As Object
Set LastRow = ActiveSheet.Range("a65536").End(xlUp)
LastRow.Offset(1, 0).Value = TextBox1.Text
MsgBox "One Passenger Added"
response = MsgBox("Do you want to enter another Passenger?", _
vbYesNo)
If response = vbYes Then
TextBox1.Text = ""
TextBox1.SetFocus
Else
Unload Me
End If
End Sub