Don't use the select keyword. Just copy and paste such as follows.

Sheets("Sheet1").Range("C2:C11").Copy _
Sheets("Sheet2").Range("B2:B11")

Hth,
Merjet