Массив не может изменить значение

Question

Я пытаюсь сравнить два разных динамических массива в двух разных листах Excel. Мне удалось присвоить значение первому, но для второго я получаю индекс ошибки времени выполнения 9 вне диапазона

Sub sortandmark()

    Dim x As Long, xg As Long
    Dim Lfo() As String
    Dim Greenlfo() As String
    Dim i As Long, ig As Long
    Dim j As Integer, jg As Long
    Dim site As Long

    'Get the main array
    Windows("Test LFO sheet .xlsm").Activate

    'x = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Rows.Count
    ReDim Lfo(2 To 2, 3 To 5) As String

    For i = 2 To 2
        For j = 3 To 5
            Lfo(i, j) = Cells(i, j).Value
        Next j
    Next i

    Windows("LFO LIST FOR OCT test.xlsx").Activate

    'Greenville array set up
    Sheets("GRE").Select
    xg = ActiveSheet.UsedRange.SpecialCells(xlCellTypeVisible).Rows.Count
    ReDim Greenlfo(2 To xg, 4 To 5)

    For ig = 2 To xg
        For jg = 3 To 4
            Greenlfo(ig, jg) = ActiveSheet.Cells(ig, jg).Value ' Where the error occurs
        Next jg
    Next ig

    'Testing and highlighting
    If Lfo(i, 3) = Greenwood Then
        Sheets("GRE").Select
    End If

End Sub