Файлик не зацепился, вот он

Я бы с удовольствием его выложил, только он русский текст выводит как кракозябры, к сожалению эта функция тоже ничего не дала, кнопка по прежнему на месте.  
Сам макрос присвоен листу, даже если его в редакторе VBA прописать в новый модуль.

Сейчас буду пробовать, а вот и код, спасибо за пояснение про копирование!!!  
 
Sub СохранитьЛистВФайл()  
On Error Resume Next  
' название подпапки, в которую по-умолчанию будет предложено сохранить файл в данном случае это папка Акты  
Const REPORTS_FOLDER = "Акты\"  
' создаём папку для файла, если её ещё нет  
MkDir ThisWorkbook.Path & "\" & REPORTS_FOLDER  
' выбираем стартовую папку  
ChDrive Left(ThisWorkbook.Path, 1): ChDir ThisWorkbook.Path & "\" & REPORTS_FOLDER  
 
'устанавливаем ячейку имя которой автоматически будет прописываться в названии файла при сохранении  
With Workbooks("модификация.xls").Sheets("акт")  
Имя_для_сохранения = .[a1] 'Формируем имя, можем его сцепить из нескольких ячеек прописав вместо .[a1]
'значения .[хх] & "_" & .[хх], где [хх] номер ячейки в которой находится информация для сцепки
End With  
' вывод диалогового окна для запроса имени сохраняемого файла  
Filename = Application.GetSaveAsFilename(InitialFileName:=Имя_для_сохранения, _  
FileFilter:="Excel Files (*.xls), *.xls")  
If VarType(Filename) = vbBoolean Then Exit Sub  
 
' копируем активный лист (при этом создаётся новая книга)  
Err.Clear: ActiveSheet.Copy: DoEvents  
If Err Then Exit Sub    ' произошла какая-то ошибка при попытке копирования листа  
 
' убеждаемся, что активной книгой является копия листа  
If ActiveWorkbook.Worksheets.Count = 1 And ActiveWorkbook.Path = "" Then  
     
'эта строка убирает из документа все формулы  
With ActiveSheet.UsedRange  
.Value = .Value  
End With 'окончание функции  
 
 
     
'удаление макроса с сохраняемого листа целиком  
 
ActiveSheet.Shapes("Сохранить и отправить в печать").Delete  
 
 
' сохраняем файл под заданным именем в формате Excel 2003  
ActiveWorkbook.SaveAs Filename, xlWorkbookNormal  
ActiveWorkbook.Selection.SpecialCells(xlFormulas).ClearContents  
 
         
'With ActiveSheet.PrintOut ' выводим лист на печать(убрать одинарные ковычки перед командами)  
'End With  
         
' закрываем сохранённый файл  
' (удалите следующую строку, если закрывать созданный файл не требуется)  
ActiveWorkbook.Close False  
End If  
End Sub

Рекордер хорошая штука - если из него "лишние детали" повыкидывать :)

Простите. Указал ваше имя вместо своего!  
Прочитал про ваш макрос. Сейчас буду пробовать. Начал учиться пользоваться макросами только позавчера. А ваш макрос - как раз то что я пытался сделать в течение полу года.    
Напишу обязательно получилось или нет!))