Hi,

I have the follinwg code which runs over a very high amount of rows (45000) and it takes a lot of time for the macro to calculate all.
Is there a more efficient way of writing this code?

The code is:

For i = 7 To 45000
Range("AY" & i).Value = Range("C" & i).Value

If Range("AY" & i).Value > Start And Range("AY" & i).Value < Finish Then
Range("AZ" & i).Value = (Range("P" & i).Value - 15) / (2.65 - 15) * Range("N" & i).Value * 2
Else
Range("AZ" & i).Value = 0
End If

Next

Kind regards,