A quicker way to use a loop

No need to select...

For Index = 2 To LastRow
            
    If Range("Y" & Index) = "Not Available" Then
        Range("Y" & Index) .FormulaR1C1 = "FORMULA"
    End If
                    
Next Index