Desde já quero agradecer ao @Leandro Felipe Moreira pela ajuda com o seguinte código:
Sub teste()
rng = Columns(16).End(xlDown).Row
MsgBox rng
For i = 1 To rng
If Cells(i, 16).Value > "0" And Cells(i, 16).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 Cells(i, 16).Value > "100" And Cells(i, 16).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 i
End Sub
O problema está no preenchimento até à última célula com:
Lastrow = Range("A" & Rows.Count).End(xlUp).Row
Range("U2").AutoFill Destination:=Range("U2:U" & Lastrow)
Pretendo que o cálculo seja feito na célula correta. Ou seja, procure na coluna P1 e apresente o cálculo na coluna U1 e sucessivamente.