Как добавить строку в таблице в Word используя VBA?

[3orp]

Здравствуйте!
Прошу помочь мне со следующим: в документе есть 3 таблицы. Во время заполнения 2-ой таблицы из формы нужно сделать так, чтобы при добавлении новой записи создавалась и строчка в которую бы вписывались эти данные
Заранее спасибо!

Public i As Integer

Private Sub UserForm_Activate()
i = 2
ComboBox1.AddItem "доктора"
ComboBox1.AddItem "кандидата"
ComboBox2.AddItem "архитектуры"
ComboBox2.AddItem "биологических наук"
ComboBox2.AddItem "ветеринарных наук"
End Sub

Private Sub CommandButton1_Click()
ActiveDocument.Tables(2).Cell(i, 1).Range = i - 1
ActiveDocument.Tables(2).Cell(i, 2).Range = TextBox1 & ", " & TextBox2 & " // " & TextBox3 & ", " & TextBox4 & "г. №" & TextBox5
i = i + 1
End Sub

Private Sub CommandButton4_Click()
ActiveDocument.Tables(2).Cell(i, 1).Range = i - 1
ActiveDocument.Tables(2).Cell(i, 2).Range = TextBox6 & ", " & TextBox7 & ", " & TextBox9 & " г., Электронный доступ: [" & TextBox8 & "]"
i = i + 1
End Sub

Private Sub CommandButton6_Click()
ActiveDocument.Tables(2).Cell(i, 1).Range = i - 1
ActiveDocument.Tables(2).Cell(i, 2).Range = TextBox10 & ", " & TextBox11 & ", на соискание степени" & " " & ComboBox1.Text & " " & ComboBox2.Text
i = i + 1
End Sub

Private Sub CommandButton8_Click()
ActiveDocument.Tables(2).Cell(i, 1).Range = i - 1
ActiveDocument.Tables(2).Cell(i, 2).Range = TextBox14 & ", " & TextBox15 & " / " & TextBox16 & ", " & TextBox17 & ", " & TextBox18 & " г."
i = i + 1
End Sub

[Step_UA]

If Tables(2).Rows.Count < i Then Tables(2).Rows.Add