Ошибка Excel VBA "Это действие не будет работать на множественный выбор"

Question

Я пытаюсь скопировать данные на несколько листов с одного листа, но получаю сообщение об ошибке:

Это действие не будет работать при множественном выборе.

Это код, который я использую:

.Offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).Copy
    Sheets(cell.Value).Range("A12").PasteSpecial Paste:=xlPasteValues

Answer 1

Thnaks

Мне удалось найти ответ .... пункт назначения, куда я вставляю, находится в формате таблицы, поэтому возникла ошибка. Допускается множественное копирование, но вставка в предварительно заданный формат таблицы не допускается.

Решение: сортируйте и копируйте необходимые строки и вставляйте

Спасибо всем.