VBA word

[Lyolyalya47]

Помогите пожалуйста, я новичок...Как мне сделать написать код, чтобы не было пусто...
Объясните пожалуйста...

Sub insert_row(package As Object, table_2 As Integer)
Dim Num_Rk As String
Dim Date_cr As String
If LCase(package.KindAddr) = "organiz" Then
If Not IsNull(package.RawData) Then
Num_Rk = package.DocDate
Date = package.Date.When
Else
Num_Rk = package.DocDate.Name
Num_Rk = ""
End If
Else
Date = package.Data
Date = ""
End If
If objRawData.GetCell("kind", table_2) = 1 Then
ActiveDocument.tables(table_2 * 2 - 1).Cell(2, 1).tables(2).Cell(1, 1).Range.Text = objRawData.table_2 & "" & objRawData.DocDate
ActiveDocument.tables(table_2 * 2).Cell(2, 2).tables(2).Cell(1, 1).Range.Text = objRawData.table_2 & "" & objRawData.DocDate
If Not IsNull(objrcin.PersonSign.Name) Then ActiveDocument.tables(2).Cell(1, 1).Range.Text = objrcin.PersonSign.Name
If Not IsNull(objrcin.Contents) Then ActiveDocument.tables(2).Cell(1, 1).Range.Text = objrcin.Contents
objtable.Rows.Last.Delete
End If
End Sub