Below is a code that Tom Olgilvy game me. It puts certain
values in a vertical range starting in cell Y4. What I
would like in addition is for it to put the actual column
letter of the corresponding value in column X startin
gwith cell 4.

Sub Copy9th()
Set rng = Range("AA3")
Set rng1 = Range("Y4")
For i = 0 To 25
rng1.Offset(i, 0).Value = _
rng.Offset(0, i * 9).Value
Next

End Sub