Есть урок по разработке приложения, позволяющего при помощи диалогового окна заполнять базу данных. Как сделать так, чтобы запись информации из диалогового окна в базу данных на рабочем листе осуществлялась не с первой пустой строки рабочего листа, а, например, начиная со столбца F и строки № 7?

Private Sub CommandButtonl_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 UserForml
Фамилия = .TextBoxl.Text
Имя = .TextBox2.Text
Срок = .TextBox3.Text
If .OptionButtonl.Value = True Then
Пол = "Муж"
Else
Пол = "Жен"
End If
If .CheckBoxl.Value = True Then Оплачено = "Да"
Else
Оплачено = "Нет"
End If
If .CheckBox2.Value = True Then
Фото = "Да"
Else
Фото = "Нет"
End If
If .CheckBoxS.Value = True Then
Паспорт = "Да"
Else
Паспорт = "Нет"
End If
ВыбранныйТур = .ComboBoxl.List(.ComboBoxl.Listlndex, 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