{quote}{login=Flangini}{date=26.02.2008 01:41}{thema=Как скопировать данные с одного листа и вставить в другой}{post}Доброго времени суток!!!  
Господа, подскажите, как скопировать ячейки показанные на экране после работы "Автофильтра" из диапазона R3:T65536 с листа1 и вставить из на лист "Work" в диапазон А1:C65536??? (имеется в виду средствами VBA){/post}{/quote}  
Попробуй так!  
Sub Macro1()  
   Range("R3:T65536").Select  
   Selection.Copy  
   Sheets("Work").Select  
   Range("A1:C65536").Select  
   Selection.Insert Shift:=xlDown  
End Sub

Sub Macro1()  
Range("R3:T65536").Copy Worksheets("Лист2").Range("A1:C65536")  
End Sub

Огромное спасибо у меня всё получилось!!!

Я понял, спасибо большое!!!  
А подскажите функцию которая очистит содержимое листа.

{quote}{login=Flangini}{date=27.02.2008 09:04}{thema=}{post}Я понял, спасибо большое!!!  
А подскажите функцию которая очистит содержимое листа.{/post}{/quote}[Диапазон].ClearContents

СПАСИБО!!!

Где-то видел, а теперь найти не могу, помогите, это просто:  
Set x = ActiveWorkbook.Sheets("Data")  
   Set NewSheet = Worksheets.Add  
   NewSheet.Name = "Work"  
Как сюда вставить проверку: "если лист уже существует, то ничего не делать"???

http://www.msoffice.nm.ru/faq/macros/worksheets.htm#faq94  
Как определить существует или нет рабочий лист с определённым именем ?