Pretendo procurar linha a linha dentro da coluna `P:P` um número inferior ou igual a 200 e executar um comando. Se for superior a 200 executar outro. Os valores estão definidos assim `0.00`. 


    If .Value =< 200 Then

    ActiveCell.FormulaR1C1 = "=RC[-5]*1.69*(1+30%)"
    Lastrow = Range("A" & Rows.Count).End(xlUp).Row
    Range("U2").AutoFill Destination:=Range("U2:U" & Lastrow)

    ElseIf .Value > 200 Then

    ActiveCell.FormulaR1C1 = "=RC[-5]*1.69*(1+40%)"
    Lastrow = Range("A" & Rows.Count).End(xlUp).Row
    Range("U2").AutoFill Destination:=Range("U2:U" & Lastrow)

    End If