for each for columns

Hello. How can I loop through the columns in the variables below. I want to offset by 1 column until I reach column H. I think I could do something like i= 1 to and then take the column value of H. Does that make sense?

Sub ammartino44zz()
Dim Copyrange As String

Startcol = "c"
Lastcol = "H"
Let Copyrange = Startcol & 3 & ":" & Lastcol & 3
End Sub


For Each c In Copyrange
c.Offset(1, 0).Value = c.Value

I'm talking about this piece. c.Offset(1, 0).Value = c.Value
After I change the value I want to copy to the end of the range, so H
Then I want to offset c by two rows, then 3, always copying to the end of the range.
And I want to do this for the same number of iterations as there are columns (so, C to H, so 6 times)

You have 8 columns. In the row below, you reference those columns and copy to the end column (H). Then you move to the next column and offset 2 rows (fron initial base) and copy to the the end column (H), and you do this until the last column, where all you have to do is offset 8 rows and copy value.

Mr. Norie?