Всем спасибо, проблема была в названии листа "Лист1" а не "Sheet1" и я не обратил на это внимания.
Paul Zealand спасибо, ваш макрос копирует даже формат ячеек с выравниванием, размером и отсутствием формул. Просто гениально!

Nordheim, Допустим есть 3 таблицы, в 2 из них идёт подсчет расходников в третьей сумма с двух, нужно чтоб третья таблица при нажатии кнопки копировалась в отдельный файл


Товарищ Paul Zealand предоставил подходящий макрос, понять не могу почему не срабатывает....

Set Source = Sheets("Sheet1").Range("A42:G72").SpecialCells(xlCellTypeVisible) 'этот интервал значений с листа будет сохранен
ConstFilePath = "D:\SystemData\Desktop\"  'пусть сохранения
   ConstFileName = ThisWorkbook.Sheets("sheet1").Range("B42").Value & " - " & Format(Date, "dd.mm") & "." & ".xlsm"  'имя файла. Значение с ячейки B42 + дата.

Проверил в "рецензировании" блокировок нет...

Paul Zealand,Перепробовал все диапазоны и пути сохранения, всё равно вылетает "The source is not a range or the sheet is protected, please correct and try again."

Можно ли сделать кнопку или как её сделать, чтобы при нажатии кнопки, ранее заданные ячейки, копировались в новый файл Excel имя которого дата и время нажатия этой кнопки?
например нужно скопировать диапозон ячеек 30R x 7C (только значения без формул) в другой файл Excel с названием времени и даты в момент нажатия на кнопку.