Ich versuche, ein Makro zu schreiben, das den Inhalt von Spalte 1 von Blatt 1 in Spalte 2 auf Blatt 2 kopiert. So sieht das Modul aus, aber wenn ich es ausführe, erhalte ich

Laufzeitfehler 9, Index außerhalb des zulässigen Bereichs.

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