заменить содержимое столбца

[Aleksandr]

При нажатии кнопки нужно поменять текст с первого листа столбец А на текст Листа2 столбец 2 Вот мой код
Private Sub CommandButton1_Click()
If CommandButton1.Caption = "Ru" Then
Sheets("Ru").Select
Columns("A:A").Select
Selection.Copy
Sheets("Ëèñò1").Select
Columns("A:A").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("G11").Select

CommandButton1.Caption = "De"
Else
Sheets("De").Select
Columns("A:A").Select
Selection.Copy
Sheets("Ëèñò1").Select
Columns("A:A").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Range("G11").Select
CommandButton1.Caption = "Ru"
End If


Или
If CommandButton1.Caption = "Ru" Then
Sheets("Ru").Columns("A:A").Copy Sheets("Лист1").Columns("A:A").Past e

CommandButton1.Caption = "De"
Else
Sheets("De").Columns("A:A").Copy Sheets("Лист1").Columns("A:A").Past e

CommandButton1.Caption = "Ru"
End If

Не могу найти ошибку

[Скрипт]

Пункт 1

Aleksandr, если на Форуме указали начало процедуры, то укажите и конец процедуры (End Sub). Или уберите начало процедуры.


Пункт 2

Если копируете текст кода, который содержит текст на русском языке, для того, чтобы разместить код на Форуме, то переключайте язык клавиатуры на русский язык, чтобы русский текст не искажался. Это недорабока программистов из организации "Microsoft", а не искажение Форума или ещё чего-нибудь.


Пункт 3

Копировать диапазон ячеек можно и без выделения ячеек, т.е. можно так скопировать:

Columns("A:A").Copy

Пункт 4

В этой строке кода ошибка:

Sheets("Ru").Columns("A:A").Copy Sheets("Лист1").Columns("A:A").Paste

После "Copy" нужно указать только диапазон, т.е. правильно будет так (и можно не указывать весь диапазон (так удобнее код писать)):

Sheets("Ru").Columns("A:A").Copy Sheets("Лист1").Range("A1")