Copy value of every 3rd row into columns

[write2son]

Hi, I'm trying to copy the values from every third cell into a new column. I've looked at examples and tried both the INDEX and MOD functions to no avail. Please help.
https://drive.google.com/file/d/0B-bGMjKaL94hOXIxSHBDODhPZjg/view?usp=sharing

 

[mumps]

Try:

Sub CopyData()
    Application.ScreenUpdating = False
    Dim x As Long
    Dim y As Long
    y = 2
    For x = 8 To 28 Step 3
        Cells(2, y) = Range("F" & x)
        y = y + 1
    Next x
    Application.ScreenUpdating = True
End Sub

 

[write2son]

Hi mumps,
I tried your macro but it didn't work. Is there another way to do it using formula? Here are two possible solution from my coworker but they both require far too much effort. I'm wondering if I could automate the process without having to go into each formula and changing the destination.
https://drive.google.com/file/d/0B-bGMjKaL94hdXU0Vk1JVzlhWnc/view?usp=sharing

 

[mumps]

When I tried it on a dummy sheet, it worked properly. I think that it would be much easier to follow if I could see how your data is organized. Perhaps you could upload a copy of your file to a free site such as www.box.com. Once you do that, mark it for 'Sharing' and you will be given a link to the file that you can post here.