Excel VBA -在Autocad中创建表格-错误91 -帮助？

' Sub to create drawing with submittal text
Sub ACADtxt(DataSheet As Worksheet) '
Dim RowCount As Integer, iCount As Integer
Dim tmpStr1 As String, tmpStr2 As String
Dim FileName As String
Dim acad As AcadApplication
Dim adoc As AcadDocument
Dim aspace As AcadBlock
Dim Alayer As AcadLayer
Dim entArray() As AcadEntity
Dim ListTable As acadTable
'Dim insPt(2) As Double
Dim insPt As Variant
On Error GoTo ErrorHandler
Dim appNum As String
appNum = acadVerNum
' See if ACAD is on the computer
If appNum = "" Then
    MsgBox "Sorry, but AutoCAD does not appear to be on this computer.", vbExclamation
    Exit Sub
End If
' Start ACAD
Set acad = CreateObject("Autocad.Application." & appNum)
Set adoc = acad.ActiveDocument
Set aspace = adoc.ActiveLayout.Block
acad.Visible = True
' Create layers Text1 and Text2
Call MakeSetLayer("Text1", 11)
Call MakeSetLayer("Text2", 12)
' Now load the marked cells with the appropriate drawing # and title
DataSheet.Activate
' See how many rows we need to check
With ActiveSheet
        RowCount = .Range("A" & .Rows.Count).End(xlUp).row
End With
insPt = adoc.Utility.GetPoint(, vbCrLf & "Pick the upper left point of table:")
' Create the table
ListTable = adoc.ModelSpace.AddTable(insPt, RowCount, 2, 3.5, 20#) '  0 Then
        'MsgBox Err.Description
        Stop
    End If
End Sub

ListTable = adoc.ModelSpace.AddTable(insPt, RowCount, 2, 3.5, 20#) '  0 Then
        MsgBox Err.Description
        Stop
    End If
End Sub