Simple. Need values back in range

I know it is simple basic thing. I wonder that I do not know.
Start with range name range1, range has values, then I move range with offset and I want new range , the same size just in new location to be filled out with the same values.
Dim r as integer
dim varange as variant
dim rng1 as range

r is somehow calculated separately, so it is know variable.

set rng1=sheets("sheet1").range(range1")
varange=rng1.value

rng1=range("range1").offset(r,0).select

rng1.value=varange

I think last code line should insert values into relocated range but it doesn't. I also tried this:
sheets("sheet1").range(rng1).value=varange

What kind of knowledge lack do I experience ?
Thanks Rad