Копирование листа с данными

[OgE®_M@G]

Здравствуйте Уважаемые. У меня возникла такая проблема можно ли в Excel сделать следующее:
1. Есть лист с данными, т.е. с таблицей
2. Надо чтобы все данные на листу сохранялись при копировании его с помощью макроса и последний столбец заменял данные на первом столбце
3. Потом чтобы также происходило и со скопированным листом
Я пробовал, но что то не выходит и копируется только первый лист где я создал макрос.

[EducatedFool]

Прикрепите с своему сообщению Ваш файл с макросом, и подробно укажите на примере этого файла, что, откуда и куда надо копировать.

[OgE®_M@G]

Хорошо я постараюсь как можно подробнее все указать. Спасибо.

[OgE®_M@G]

Эта книга с копированием листа и макросом о котором я говорил.

[EducatedFool]

К сожалению, так толком и не понял, что, откуда и куда должно копироваться.

Начнём с того, что Ваш макрос можно переписать в виде:

Sub Macros()
    Range("D1:E40").Copy Range("A1")    ' копирует диапазон на активном листе (на том, с которого запускается макрос)
    Sheets("Лист2").Copy Before:=Sheets(1) ' копирует Лист2 (с какого бы листа не запускался макрос)
End Sub

Возможно, Вам нужен такой вариант:

Sub Macros_2()
    Range("D1:E40").Copy Range("A1")    ' копирует диапазон
    ActiveSheet.Copy Before:=Sheets(1) ' копирует активный лист (с которого запускается макрос)
End Sub

Разница в том, что в исходном варианте всегда копировался лист2, а теперь копируется тот лист, на котором нажимается кнопка

Или такой:

Sub Macros_3()
    ActiveSheet.Copy Before:=Sheets(1) ' копирует активный лист (с которого запускается макрос)
    Range("D1:E40").Copy Range("A1")    ' копирует диапазон
End Sub

Здесь мы сначала копируем лист, и уже в созданной копии листа производим копирование диапазона

[OgE®_M@G]

Спасибо большое EducatedFool это то что нужно. СПАСИБО.