M-A

I am not sure if this is what you want, but the following code will take the
value in every other column of row 1 and put them in a column, starting at the
active cell. I am not sure what the limits should be on the number of columns,
so I arbitrarily run through the first 21 columns.

Sub test()

For i = 0 To 20
ActiveCell.Offset(i, 0).Value = Cells(1, 2 * i + 1).Value
Next i

End Sub

Also, your example of A25 to A500 indicates a potential problem. Since you
restricted to 256 columns, and you are only using half the columns, if you
start in A25 you can't have enough data to go beyond ~A150, as I understand it
anyway.

I hope this helps.

Good luck,

Ken
Norfolk, Va