Вставить значение из одного столбца в новый пустой столбец на основе значения показателя

Question

Я хочу вставить название компании из одного столбца в новый пустой, только если соответствующее значение в столбце «Оценка» равно или меньше 5.

Простой Vlookup не может использовать, поскольку этот шаблон должен иметь дело с потенциально динамическими c данными, т. е. расположение столбца столбца «Оценка» может измениться в следующем квартале и т. д. c.

VBA не предупреждает о каких-либо ошибках в код ниже, но когда он запускается, ничего не происходит.

Любая помощь или руководство с благодарностью!

Sub MacroX()
   Dim Score_Col As Long

   For i = 1 To NumCols
      If Cells(1, i).Value = "SCORE" Then Score_Col = i
   Next

   For i = 2 To NumRows
      If Cells(i, Score_Col).Value <= 5 Then Cells(i, 28).Value = Cells(i, 2).Value
   Next
End Sub