I've been searching everywhere for this but still can't find anything that works..

I have a series of text data in Column Y in every other row (Row 3, 5, 7, and so on) which needs to be copied and pasted 1 row down, and 21 cells to the left. (Offset(1,-21) is correct in this case?) I need this action to continue until the very last data in Column Y.

This is my first attempt at VBA, so the code below is the only thing I have so far..

With ActiveSheet.Range("Y3")
    .Copy .Offset(1, -21)
End With
This code itself does the job, but I'd need to copy&paste this code for 1000+ cells that need to be copied.. ><

Does anyone here have an easy quick solution for this?

Thank you so much in advance!