Trouble with Counter to Increment Through an Array - What gives?

[CatLadee]

Can one of you smart people please give me a hint about why I am unable to increment through one range to move it to another location with my current code? The current counter just gives the last variable in the loop for all of the new range's slots. The comma'd out counter says type mismatch. in a jam - please help. Thank you thank you thank you in advance! - CatLadee


With Worksheets("Brackets").Range("Anchor_R1")
Set rng = Range(.Offset(1, 10), .Offset(1, 10).End(xlDown))


r = 1

For Each cell In rng
Range(.Offset(12, 2), .Offset(12, 3).End(xlDown)) = rng(r)
r = r + 1 'rng(r) = rng(r) + 1
Next cell
End With

 

[AlphaFrog]

You loop through each cell in the source range, but the destination range never changes.

I'm not sure what your goal is, but this...
Range(.Offset(12, 2), .Offset(12, 3).End(xlDown))
...never changes in your code. You write each cell value from the source range to the same destination.

 

[CatLadee]

Thanks! Your reply got me thinking along and right track and the below worked. All the best to you!

 With Worksheets("Brackets").Range("Anchor_R1")        Set rng = Range(.Offset(1, 9), .Offset(1, 9).End(xlDown))
        Set rng2 = Range(.Offset(12, 0), .Offset(12, 1).End(xlDown))
            
        r = 1
    
        For Each cell In rng
            rng2(r) = rng(r)
            r = r + 1
    
        Next cell