What I'm trying to do is copy data from a horizontal list, paste it into a column on a different sheet and repeat until there is no more data to copy. The code shown is just a fragment.

Do While Not IsEmpty(ActiveCell)
    Range("C[1st sheet row number here]:L[1st sheet row number]").Select
    Selection.Copy
    Sheets("Results").Select
    Range("[2nd sheet row],[2nd sheet column]").Select
    Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
        False, transpose:=True
    sr = sr + 1 [shifts 1st sheet down to next column]
    rr = rr + 10 [shifts 2nd down to end of data range]
Loop
Is this possible, or is there a better way?

Thanks in advance!