Hi,

Thanks to the alternative code, useful to reduce the memory used in the cycle.

To avoid errors when there is a text, I added in the cycle:

For i = 1 To UBound(ka, 1) - 1
ka(i, 1) = Val(ka(i + 1, 1)) - Val(ka(i, 1))
Next

Is there an alternative to load the array: ka = Range("C3:C" & r) with only numeric values ?

I hope my request makes sense