Set the values of set of ranges to zero then restore previous valu

[caroline]

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

 

[CurlyDave]

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

Nope, you description is hard to follow, please elaborate.