‘Фамилия записывается во вторую колонку.

Worksheets(2).Cells(N + 2, 2).Value = Range("c2")

‘Имя записывается в третью колонку.

Worksheets(2).Cells(N + 2, 3).Value = Range("c4")

‘Отчество попадает в четвертую колонку.

Worksheets(2).Cells(N + 2, 4).Value = Range("c6")

‘Название города располагается в пятой колонке.

If OptionButton1.Value = True Then

Worksheets(2).Cells(N + 2, 5).Value = "Н.Новгород"

Else

Worksheets(2).Cells(N + 2, 5).Value = city.Text

End If

‘Вид деятельности расположим в шестой колонке, место работы или

‘ учебы в седьмой, а примечание в восьмой колонке.

If st.Value = True Then

Worksheets(2).Cells(N + 2, 6).Value = "студент"

Worksheets(2).Cells(N + 2, 7).Value = TextBox1.Text + " курс " +

TextBox2.Text

Else

Worksheets(2).Cells(N + 2, 6).Value = "спец. с в/о"

Worksheets(2).Cells(N + 2, 7).Value = TextBox3.Text

Worksheets(2).Cells(N + 2, 8).Value = TextBox4.Text

End If

‘Характеристики, указанные во флагах.

If flag1.Value = True Then

Worksheets(2).Cells(N + 2, 9).Value = "Да"

Else

Worksheets(2).Cells(N + 2, 9).Value = "Нет"

End If

If flag2.Value = True Then

Worksheets(2).Cells(N + 2, 10).Value = "Да"

Else

Worksheets(2).Cells(N + 2, 10).Value = "Нет"

End If

If flag3.Value = True Then

Worksheets(2).Cells(N + 2, 11).Value = "Да"

Else

Worksheets(2).Cells(N + 2, 11).Value = "Нет"

End If

End Sub