Loop with Range that requires offset

[Dani_LobP]

Hi all,

Hope someone can help, im trying to make a loop that relies on a range, which should be changing every cycle.

Range("Q244").Select
Do Until ActiveCell.Offset(0, -1) = ""
    Set RangeLoop = Range("C8:C25")
        With ActiveCell
            RangeLoop.Copy
            ActiveCell.PasteSpecial xlPasteValues
        End With
        ActiveCell.Offset(18, 0).Select
        Set RangeLoop = RangeLoop.Offset(22, 0)
Loop

So if range i want to paste is from C8:C25 ... in theory when i set offset 22,0, the new range should be C29:C46 ... but won´t work and will paste again same initial range..

Hope it makes sense.

Thanks in advance!

 

[Fluff]

Not entirely sure what you are trying to do, but does this work

Range("Q244").Select
Set RangeLoop = Range("C8:C25")
Do Until ActiveCell.Offset(0, -1) = ""
        With ActiveCell
            RangeLoop.Copy
            ActiveCell.PasteSpecial xlPasteValues
        End With
        ActiveCell.Offset(18, 0).Select
        Set RangeLoop = RangeLoop.Offset(22, 0)
Loop

 

[Dani_LobP]

Not entirely sure what you are trying to do, but does this work

Range("Q244").Select
Set RangeLoop = Range("C8:C25")
Do Until ActiveCell.Offset(0, -1) = ""
        With ActiveCell
            RangeLoop.Copy
            ActiveCell.PasteSpecial xlPasteValues
        End With
        ActiveCell.Offset(18, 0).Select
        Set RangeLoop = RangeLoop.Offset(22, 0)
Loop

ahh ofc... i had the range set inside the loop so doesnt matter what would change later that it would reset.. right?
feel silly now hehe
Thanks for the help!

 

[Fluff]

i had the range set inside the loop so doesnt matter what would change later that it would reset.. right?

That's right

Glad to help & thanks for the feedback