Я пытаюсь написать макрос, который копирует содержимое столбца 1 из листа 1 в столбец 2 на листе 2. Так выглядит модуль, но когда я его запускаю, я получаю

Ошибка времени выполнения 9, нижний индекс вне диапазона.

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