Estoy intentando escribir una macro que copia el contenido de la columna 1 de la hoja 1 a la columna 2 en la hoja 2. Así es como se ve el módulo, pero cuando lo ejecuto, obtengo

Tiempo de ejecución error 9, subíndice fuera de rango.

Sub OneCell()
    Sheets("Sheet1").Select
    'select column 1 A1'
    Range("A1:A3").Select

    Selection.Copy
    Range("B1:B3").Select

    ActiveSheet.Paste

    Sheets("Sheet2").Select
    Application.CutCopyMode = False
End Sub