Arrays 带数组的VBA匹配函数

在代码下面运行时，代码最后一行出现“objectrequired”错误。我真的不明白为什么

Dim FirstCurrentRange As Range
Dim FirstRowCounter As Long
Dim FirstArrayCounter As Variant
Dim FirstCurrentArray() As Variant

Dim ColumnCounter As Long
Dim ArrayCounter As Variant
Dim CurrentArray() As Variant
Dim SiteNameMatch As Long

Set FirstCurrentRange = ThisWorkbook.Worksheets(InputSheet.Name).ListObjects("DataTable").Range
FirstArrayCounter = 0

For FirstRowCounter = 2 To FirstCurrentRange.Rows.Count
    FirstArrayCounter = FirstArrayCounter + 1
    ReDim Preserve FirstCurrentArray(1, FirstArrayCounter)
    FirstCurrentArray(1, FirstArrayCounter) = FirstCurrentRange(FirstRowCounter, 4).Value
Next FirstRowCounter

ThisWorkbook.Worksheets(DeleteMe.Name).Range("A1:A" & FirstArrayCounter).Value = Application.WorksheetFunction.Transpose(FirstCurrentArray)

ReDim Preserve CurrentArray(2, FirstArrayCounter)
ArrayCounter = 0

For ColumnCounter = LBound(FirstCurrentArray, 2) To UBound(FirstCurrentArray, 2)

SiteNameMatch = Application.WorksheetFunction.Match(FirstCurrentArray(1, ColumnCounter).Value, ThisWorkbook.Worksheets(ContactListSheet.Name).ListObjects("ContactTable").ListColumns("Site").DataBodyRange, 0)

---

为什么简单数组计数器是变量而不是long？

Add:Option Explicit，它将显示需要声明的个数（Inputsheet.Name、DeleteMe.Name和ContactListSheet.Name）。Option Explicit已启用。没有声明图纸名称之前没有给我任何问题。我对：FirstCurrentArray（1，ColumnCounter）.Value做了一些错误的操作