Help with Range Object

I am trying to Set a Range object that contains multiblecells. Then use the variables to move the contents of the multiblecells to other multible cells. As an example if the value of 5 is incell "g5" the value of 15 is in "h5" the value of 25 is in "i5" thevalue 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 SetStatement to help with speed as there a lot of rows to move andLooping quickly. The problem in the above example is the value (5)from "g5" ends up in "g4", "h4", "i4", and "j4"? Thanks for any helpthat you can offer.

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