Я пытаюсь написать макрос, который копирует содержимое столбца 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