Как перенаправить «For Next» в другую ячейку и запустить его, если значение не равно?

Question

Приведенный ниже код вставляет формулу из столбца AJ8 каждую седьмую строку вниз, пока столбец D не станет пустым.Последняя ячейка в строке 7 всегда имеет значение = «Пропущенные данные».Значение = «Отсутствующие данные» может перемещать ячейки из AJ7 в AI7, AH7, AG7 и так далее.Зависит от того, в какое время месяца я проверяю свои данные.Подскажите, пожалуйста, как мне изменить этот код, чтобы найти значение = «Отсутствующие данные» в строке 7, а затем запустить приведенный ниже код, начиная со строки 8?

Я пробовал с «Если идентификатор конца»и «ForNext» вместе и «Найти», но я могу заставить его работать.

Заранее спасибо.

With ThisWorkbook.Worksheets("Data")

LastRow5 = .Cells(.Rows.Count, "D").End(xlUp).Row

For Row = 8 To LastRow5 Step 7

Cells(Row, "AG").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=TEXTJOIN(,TRUE,RC[1]:RC[31])"

Next
End With

Пример Пример

Answer 1

dim i as long, LastRow5 as long, m as long

With ThisWorkbook.Worksheets("Data")

    m = application.match("Missing Data", .rows(7), 0)
    LastRow5 = .Cells(.Rows.Count, "D").End(xlUp).Row

    For i = 8 To LastRow5 Step 7

        .Cells(i, m).FormulaR1C1 = "=TEXTJOIN(,TRUE, RC[1]:RC[31])"

    Next i

End With