I am trying to Set a Range object that contains multible
cells. Then use the variables to move the contents of the multible
cells to other multible cells. As an example if the value of 5 is in
cell "g5" the value of 15 is in "h5" the value of 25 is in "i5" the
value of 35 is in "j5". I am attempting to move the value in "g5"
to "G4", "h5" to "h4" and so on. I am attempting to use the Set
Statement to help with speed as there a lot of rows to move and
Looping quickly. The problem in the above example is the value (5)
from "g5" ends up in "g4", "h4", "i4", and "j4"? Thanks for any help
that you can offer.

Dim myRangeCounter7 As Range
Dim myRangeCounter6 As Range
Dim myRangeCounter5 As Range
Dim myRangeCounter4 As Range


Sub DeclareCounterRanges()


Set myRangeCounter7 = Worksheets("Sheet1").Range("G7,H7,I7,J7")
Set myRangeCounter6 = Worksheets("Sheet1").Range("G6,H6,I6,J6")
Set myRangeCounter5 = Worksheets("Sheet1").Range("G5,H5,I5,J5")
Set myRangeCounter4 = Worksheets("Sheet1").Range("G4,H4,I4,J4")

Call MoveCounterRanges
End Sub

Sub MoveCounterRanges()


myRangeCounter4 = myRangeCounter5
myRangeCounter5 = myRangeCounter6
myRangeCounter6 = myRangeCounter7
myRangeCounter7 = myRangeCounter8

End Sub