«Зацикливание логической ошибки в vba для обновления таблицы?»

Question

по-видимому, в коде нет проблем с орфографической ошибкой, а не с конструкцией, однако я не получил желаемого решения, т.е. вставил значение из другого листа в соответствии с условием эквивалентности if ... может кто-то заметить, что я - логический недостатокпропал?

Я уже пробовал с Do While, но также не удалось, либо мне не хватает условия, либо я не могу определить недостаток.код выполняется, но ничего не вставляйте в нужный столбец, найденный с помощью оператора if.

на случай, если я не достаточно ясен, пожалуйста, свяжитесь со мной.

' Declaring the variables to update the metrics
Dim ceiling As Integer
nw = Sheet8.Range("A54")
ceiling = Sheet8.Cells(1, 54).Column
Start = 2
week = Sheet12.Cells(21, 54).Value

'Loop to paste values into the Column Week number desired

For i = 2 To ceiling
    If Sheet8.Cells(1, i) = week Then
        Sheet8.Cells(3, i).Value = Sheet12.Cells(25, 7).Value
    ElseIf Sheet8.Cells(1, i) <> week Then
        i = i + 1
    End If

Next i