Как использовать Select Case для текстовой строки

Question

Я хотел бы иметь регистр, который читает текстовую строку, такую ​​как "Net 75 от 1-го числа следующего месяца", если эта ячейка содержит это значение, он будет делать следующий случай.

My код работает, когда значение говорит «P», но как только я делаю это долго, он больше не работает?

  Option Explicit
  Sub CalcColB()

Dim x As Long
Application.ScreenUpdating = False

    For x = 1 To Cells(Rows.Count, "F").End(xlUp).Row
       Select Case UCase(Cells(x, 6))
          Case "Net 75 from 1st of following month"
                Cells(x, 2).FormulaR1C1 = "=A2*1.8"
          Case "F"
               Cells(x, 2).FormulaR1C1 = "=RC[-1]*1000"
          Case Else
               Cells(x, 2).Formula = "="""""
      End Select
  Next x
Application.ScreenUpdating = True
End Sub