сделать рабочую форму для записи данных в таблицу

Private Sub CommandButton1_Click()
' Процедура считывания информации из диалогового окна
' и записи ее в базу данных на рабочем лист
' Смысл переменных однозначно определен их названиями
Dim Фамилия As String * 20
Dim Имя As String * 20
Dim Пол As String * 3
Dim ВыбранныйТур As String * 20
Dim Оплачено As String * 3
Dim Фото As String * 3
Dim Паспорт As String * 3
Dim Срок As String * 3
Dim НомерСтроки As Integer
'НомерСтроки – номер первой пустой строки рабочего листа НомерСтроки=Application.CountA(ActiveSheet.Columns(1)) + 1
'Считывание информации из диалогового окна в переменные With UserForm1
Фамилия =.TextBox1.Text
Имя =.TextBox2.Text
Срок =.TextBox3.Text
Пол=IIf(.OptionButton1.Value, «Муж», «Жен»)
Оплачено=IIf(.CheckBox1.Value, «Да», «Нет»)
Фото=IIf(.CheckBox2.Value, «Да», «Нет»)
Паспорт=IIf(.CheckBox3.Value, «Да», «Нет»)
ВыбранныйТур =.ComboBox1.List(.ComboBox1.ListIndex, 0)
End With
'Ввод данных в строку с номером НомерСтроки рабочего листа
With ActiveSheet
Cells(НомерСтроки, 1).Value=Фамилия
Cells(НомерСтроки, 2).Value=Имя
Cells(НомерСтроки, 3).Value=Пол
Cells(НомерСтроки, 4).Value=ВыбранныйТур
Cells(НомерСтроки, 5).Value=Оплачено
Cells(НомерСтроки, 6).Value=Фото
Cells(НомерСтроки, 7).Value=Паспорт
Cells(НомерСтроки, 8).Value=Срок
End With
End Sub
НомерСтроки=Application.CountA(ActiveSheet.Columns(1)) + 1
Private Sub SpinButton1_Change()
'Процедура ввода значения счетчика в поле ввода
With UserForm1
TextBox3.Text=CStr(.SpinButton1.Value)
End With
End Sub
Private Sub TextBox3_Change()
'Процедура установки значения счетчика из поля ввода
With UserForm1
SpinButton1.Value=CInt(.TextBox3.Text)
End With
End Sub
Private Sub CommandButton2_Click()
'Процедура закрытия диалогового окна
UserForm1.Hide
Application.Caption=Empty
'Установка заголовка окна приложения по умолчанию
End Sub
Private Sub UserForm_Initialize()
'Процедура вызова диалогового окна
'и задание элементов раскрывающегося списка
'Задание пользовательского заголовка окна приложения
Application.Caption=«Регистрация. База данных клиентов »
Application.DisplayFormulaBar=False 'Закрытие строки формул окна Excel
With CommandButton1
Default=True
ControlTipText=«Ввод данных в базу данных»
End With
With CommandButton2
Cancel=True
ControlTipText=«Кнопка отмены»
End With
OptionButton1.Value=True
With ComboBox1
'Задание элементов раскрывающегося списка
List=Array(«Лондон», «Париж», «Берлин»)
ListIndex=0
End With
'Задание начального и минимального значений счетчика и вывод текста
SpinButton1.Value=1
SpinButton1.Min=1
UserForm1.Show
'Активизация диалогового окна
End Sub
Sub ЗаголовокРабочегоЛиста()
'Процедура создания заголовков полей базы данных
If Range(«A1»).Value=«Фамилия» Then Range(«A2»).Select Exit Sub 'Если заголовки существуют, то досрочный выход из процедуры
End If 'Если заголовки не существуют, то создаются заголовки полей
ActiveSheet.Сеlls.Clear
Range(«A1:H1»).Value=Array(«Фамилия», «Имя», «Пол», «Выбранный Тур», «Оплачено», «Фото», «Паспорт», «Срок»)
Range(«А: А»).ColumnWidth=12
Range(«D: D»).ColumnWidth=14.4
Range(«2:2»).Select
'Закрепляется первая строка с тем, чтобы она всегда отображалась на экране
ActiveWindow.FreezePanes=True
Range(«A2»).Select
'К каждому заголовку поля базы данных присоединяется примечание
Range(«Al»).AddComment
Range(«A1»).Comment.Visible=False
Range(«A1»).Comment.Text Text:="Фамилия клиента"
Range(«B1»).AddComment
Range(«B1»).Comment.Visible=False
Range(«B1»).Comment.Text Техt:="Имя клиента"
Range(«C1»).AddComment
Range(«C1»).Comment.Visible=False
Range(«C1»).Comment.Text Text:="Пол клиента"
Range(«D1»).AddComment
Range(«D1»).Comment.Visible=False
Range(«D1»).Comment.Text Text:="Направление" 
Range(«E1»).AddComment
Range(«E1»).Comment.Visible=False
Range(«E1»).Comment.Text Text:="Путевка оплачена?" 
Range(«F1»).AddComment
Range(«F1»).Comment.Visible=False
Range(«F1»).Comment.Text Text:="Фото сданы" 
Range(«G1»).AddComment
Range(«G1»).Comment.Visible=False
Range(«G1»).Comment.Text Text:="Наличие паспорта" 
Range(«H1»).AddComment
Range(«H1»).Comment.Visible=False
Range(«H1»).Comment.Text Text:="Продолжительность"
End Sub