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

Пользователь

Сообщений: 214 Регистрация: 01.01.1970

29.03.2013 18:59:13

Вылетает по ошибке 91 на последней строке, что я упустил?

Код

Sub ForNarezka()

    ActiveWorkbook.Worksheets("Свод")  .Activate
    ActiveSheet.PivotTables("СводнаяТаблица")  .PivotSelect "", xlDataAndLabel, True
 
    Selection.Copy
 
    ActiveWorkbook.Worksheets("Нарезка")  .Activate
    LastRow = ActiveSheet.Cells.Find(What:="*", SearchDirection:=xlPrevious, SearchOrder:=xlByRows).Row 
    ActiveSheet.Range("A1:G" & LastRow).ClearContents' Чистим старые данные

    Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
 
End Sub

Пробовал вставить в конкретную ячейку
ActiveSheet.Range("A1") .PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
вылетает по ошибке 1004, вручную данные вставляются(((

Изменено: TankSpb - 29.03.2013 23:19:50

Читают тему