Excel VBA - добавить значение ячейки в массив

Question

Я пытаюсь добавить значение ячейки в массиве, но я получаю ошибку несоответствия типов в моем коде.Почему это происходит?

Dim rng As Range
Dim cell As Range
Dim arr As Variant

Set rng = Range("panel_is_on")

For Each cell In rng
    If cell.Value2 = "On" Then
        If cell.Offset(0, -1).Value2 = "ISJ" Or cell.Offset(0, -1).Value2 = "BSJ" Then
            arr(i) = cell.Offset(0, -3).Value2
            i = i + 1
        End If
    End If
Next cell

Answer 1

Это работает для меня:

For Each cell In rng

If cell.Value2 = "On" Then
    If cell.Offset(0, -1).Value2 = "ISJ" Or cell.Offset(0, -1).Value2 = "BSJ" Then
    i = i + 1
    ReDim Preserve arr(1 To i)
    arr(i) = cell.Offset(0, -3).Value2
 End if 
Next cell