Se definir a coluna inteira `P:P` a folha vai congelar. Como é que defino o `rng`, alguma ideia?

CÓDIGO:

    Sub teste()
    Dim rng As Range
    Set rng = Range("P2:P300") 'Estou a definir até à linha 300 para não quebrar

    For Each Row In rng.Rows

    If Row.Value > "0" And Row.Value <= "100" Then
 
    Range("U2").Select
    ActiveCell.FormulaR1C1 = "=RC[-5]*1.69*(1+40%)"
    Lastrow = Range("A" & Rows.Count).End(xlUp).Row
    Range("U2").AutoFill Destination:=Range("U2:U" & Lastrow)
    Selection.NumberFormat = "0"

    ElseIf Row.Value > "100" And Row.Value <= "150" Then
 
    Range("U2").Select
    ActiveCell.FormulaR1C1 = "=RC[-5]*1.69*(1+35%)"
    Lastrow = Range("A" & Rows.Count).End(xlUp).Row
    Range("U2").AutoFill Destination:=Range("U2:U" & Lastrow)
    Selection.NumberFormat = "0"


    End If
    Next Row
    End Sub