Próbuję napisać makro, które kopiuje zawartość kolumny 1 z arkusza 1 do kolumny 2 na arkuszu 2. Tak wygląda moduł, ale gdy go uruchomię, dostaję

Błąd czasu działania 9, indeks dolny poza zakresem.

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