VBA copy row to column

[raaone]

Hi all, newbie here.
I'm trying to copy a row of cells from one sheet (Sheet1) to the first empty cell in column 2 on another sheet (Sheet2) using a checkbox.
Here is my code:
If CheckBox2.Value = True Then
Dim xCell As Range
Worksheets("Sheet1").Range("A9:K9").Copy
' On Error Resume Next
For Each xCell In Sheets("Sheet2").Columns(2).Cells
If Len(xCell) = 0 Then
Worksheets("Sheet2").Range(xCell).PasteSpecial Transpose:=True
Exit For
End If
Next
End If

The error message I get at line beginning with Worksheets("Sheet2"). is
"Application-defined or object-defined error"

Could someone give me a hint as to what I'm doing wrong.
Many thanks.

 

[Fluff]

Hi & welcome.
Try this

Worksheets("Sheet1").Range("A9:K9").Copy
Sheets("Sheet2").Range("B" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Transpose:=True

 

[raaone]

Hi & welcome.
Try this

Worksheets("Sheet1").Range("A9:K9").Copy
Sheets("Sheet2").Range("B" & Rows.Count).End(xlUp).Offset(1).PasteSpecial Transpose:=True

Worked beautifully. Thank you.
Would you be kind enough to give me a brief explanation of "End(xlUp)" 

Thanks again.

 

[Fluff]

.End(xlUp) Moves up from the startpoint (in this case B1048576, on newer versions of xl) until it finds a cell that is not blank.
It is the same as going to the very last row of the sheet & doing Ctrl+uparrow

 

[raaone]

I just got an email saying you replied, but your reply doesn't seem to be here.

 

[raaone]

Got it. Thanks.

 

[Fluff]

Your welcome.