Selecting cells using variables for row and column values

[moraym]

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!

[royUK]

Try this instead, it's untested but it should copy the Rows to successive columns in the other sheet

Option Explicit

Sub copyRowsToColumns()
    Dim R      As Long
    Dim C     As Long
    Dim X      As Long
    With Sheet1 'this is the data sheet, amend with corect name
        X = .UsedRange.Rows.Count
        For R = 2 To X 'assumes datra starts in Row2
            .Range(.Cells(R, 3), .Cells(R, 12)).Copy
            C = Sheets("Results").Cells(1, Columns.Count).End(xlToLeft).Column + 1
            Sheets("Results").Cells(1, C).PasteSpecial Paste:=xlPasteAll, _
                                                        Operation:=xlNone, SkipBlanks:= _
                                                        False, Transpose:=True
        Next R
    End With
End Sub

[moraym]

No luck with that. I keep getting object errors at this line:

X = .UsedRange.Rows.Count

Anyone have other ideas?