Eu estou tentando escrever uma macro que copia o conteúdo da coluna 1 da folha 1 para a coluna 2 na folha 2. É assim que o módulo se parece, mas, quando eu o executo, recebo

Erro de tempo de execução 9, Subscrito fora do intervalo.

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