Sub SearhFiles() 'Макрос поиска файла с именем и автоматическое его открытие при наличии
     On Error GoTo err_: Workbooks.Open "\\Server\FTP\Global\" & Range("F2") & ".xls": Exit Sub 
err_:     MsgBox "Нет такого файла!" 
Application.Run "DOC-Fish.xlsm!R_to_xls" 'Запуск макроса по созданию файла с именем 
End Sub  

Sub R_to_xls()     
Const Path = "\\Server\FTP\Global\"  'Объявляем путь для сохранен
Dim NameDate As String    'Вводим переменную для определения даты для имени файла     
Dim RepFileName As String 'Вводим переменную для имени файла     
NameDate = Format((Sheets("Расход").Range("Y1")), "yyyy-mm-dd") 'Указываем значение переменной даты для имени файла (хотя дата не создаётся почему-то в имени)     
RepFileName = "R-" & NameDate & ".xls"   'Указываем значение переменной всего имени файла        
Sheets("Расход").Select     
Range("O2:AB41").Select     
Range("O2:AB41").Activate     
Selection.Copy     
Workbooks.Add     
Selection.PasteSpecial Paste:=xlPasteValuesAndNumberFormats, Operation:= _     
xlNone, SkipBlanks:=False, Transpose:=False     
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _     
SkipBlanks:=False, Transpose:=False     
Selection.PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, _         
SkipBlanks:=False, Transpose:=False     
Sheets("Лист1").Select     
Sheets("Лист1").Name = "R-" & NameDate     
ActiveWindow.Zoom = 100     
ActiveWorkbook.SaveAs FileName:=Path & RepFileName, FileFormat _  
   :=xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:= _    
     False, CreateBackup:=False 
End Sub

Sub CopySheet()
Dim Ws As Worksheet
Set Ws = ActiveSheet
With Workbooks("\\Server\ftp\Global\" & Range("Q3") & ".xls")
Err.Clear
On Error Resume Next
.Worksheets.Add After:=.Worksheets(Sheets.Count)
If Err.Number = 0 Then ActiveSheet.Name = Ws.Name
Ws.Parent.Activate
Cells.Copy Destination:=.Worksheets(ActiveSheet.Name).Cells
End With
End Sub