Hello,

Dim i As Long
For i = 0 To 49
Set Rg = Range(Range("Country1").Offset(i * 75 + 20, 6),
Range("Country1").Offset(i * 75 + 23, 23))
Next

I would like to set the value of Rg to Zero, copy and paste the result of
the calculation, then restore the previous values of Rg.

Any idea?
Thanks
--
caroline