Easy Value listing code

[Todd Huttenstine]

Hey guys,

I dont know what I did but I lost this code. I need a
code that will look in Range A4:Z4 and then list all the
values of that range in cell A5:A1000.

Thank you.

Todd

 

[losmac]

Sub dhjsa()
Dim cl As Object
Dim i As Long

i = 4
For Each cl In Sheets("a").Range("A4:Z4").Cells
i = i + 1
Sheets("a").Range("A" & i) = cl.Value
Next cl
End Sub