задача на vba...форма в excel

[Lyudmila_Alt]

дело вот в чем..не могу понять, как сделать так,чтобы данные,которые я записываю в форму, вывести в excel в виде таблицы.... если не сложно, помогите с этим!т.е. нужен код для кнопки которая у меня в форме excel называется...вот код, который я писала для формы


Option Explicit
Option Base 1

Dim dataset() As String
Dim i, j, pos As Integer

Private Sub add_btn_Click()
i = i + 1
dataset(1, i) = fam_txb.Text
dataset(2, i) = mark_txb.Text
fam_txb = ""
mark_txb = ""
pos = i
ReDim Preserve dataset(2, i + 1)
NumRecord_Lbl.Caption = CStr(i)
End Sub


Private Sub Dlt_btn_Click()
Dim Temp() As String
Dim index As Integer
ReDim Temp(2, i - 1)
For j = 1 To i
index = j
If (index > pos) Then index = index - 1
If j <> pos Then
Temp(1, index) = dataset(1, j)
Temp(2, index) = dataset(2, j)
End If
Next j
ReDim dataset(2, i - 1)
For j = 1 To i - 1
dataset(1, j) = Temp(1, j)
dataset(2, j) = Temp(2, j)
Next j
End Sub

Private Sub Edit_btn_Click()
dataset(1, pos) = fam_txb.Text
dataset(2, pos) = mark_txb.Text

End Sub

Private Sub End_btn_Click()
fam_txb = dataset(1, i)
mark_txb = dataset(2, i)
NumRecord_Lbl.Caption = CStr(i)
End Sub

Private Sub first_btn_Click()
fam_txb = dataset(1, 1)
mark_txb = dataset(2, 1)
NumRecord_Lbl.Caption = "1"
End Sub


Private Sub last_btn_Click()
If (pos <= 1) Then pos = 1 Else pos = pos - 1
fam_txb = dataset(1, pos)
mark_txb = dataset(2, pos)
NumRecord_Lbl.Caption = CStr(pos)
End Sub

Private Sub Next_btn_Click()
If (pos < i) Then pos = pos + 1
fam_txb = dataset(1, pos)
mark_txb = dataset(2, pos)
NumRecord_Lbl.Caption = CStr(pos)
End Sub




Private Sub UserForm_Initialize()
ReDim dataset(2, 1)
End Sub