Чтение в ячейках, связанных с проверкой нескольких списков VBA

Question

Я пытаюсь обновить 3 разные ячейки проверки списка, пропуская все возможные комбинации из 3, а затем считывая некоторые значения ячеек.

Кажется, что l oop работает нормально и изменяет перечислить значения правильно, но окончательное присвоение значений ячеек моей другой книге не работает. Он принимает значения в ячейках при первом открытии листа, но они не обновляются в зависимости от каждой новой записи в ячейках проверки списка.

Может кто-нибудь сказать мне, где я иду не так? Назначаю ли я ячейки

Ниже приведен соответствующий код, где я делаю цикл

For i = LBound(countries) To UBound(countries) - 1
    'close and repopen workbook as seems to be causing issues
    'emissions_wb.Close
    'Set emissions_wb = Workbooks.Open(filepath & filename)
    'Set emissions_wb = Workbooks(filename)
    'Set sheet = emissions_wb.Sheets(2)
    countries_drop_down_cell = countries(i)
    'create unique airport list for specific country
    airports = airports_by_country(i)

    Application.Calculate
    'if statement as last entry is just one airport so not a variant hence cant use UBound method

    For j = LBound(airports) To UBound(airports)

        airports_drop_down_cell = airports(j, 1)
        Application.Calculate
        For k = LBound(years) To UBound(years)
            Count = Count + 1
            years_drop_down_cell = years(k)

            'recalculate sheet
            Application.Calculate

            'store variables in another workbook
            data_wb.Sheets(2).Range(("D" & CStr(Count))) = years(k)
            data_wb.Sheets(2).Range(("C" & CStr(Count))) = airports(j, 1)
            data_wb.Sheets(2).Range(("B" & CStr(Count))) = countries(i)
            data_wb.Sheets(2).Range(("E" & CStr(Count))) = sheet.Range("w24").Value 'issue is here
            data_wb.Sheets(2).Range(("F" & CStr(Count))) = sheet.Range("w26").Value  'issue is here
        Next k
    Next j
Next i