Sub Sav()
   Dim oBook As Object
   Dim fio As String
   Dim fio2 As String
   Dim pos As String
   fio = Cells( 19 ,  2 )
   If fio = "" Then MsgBox ("Error"): Exit Sub
   pos = InStrRev(fio, "/")
fio2 = Replace((Left(fio, pos -  6 )), " ", "_")

      Set oBook = Application.Workbooks.Add
      oBook.SaveAs "C:\" + fio2 + ".xls"
      
Str.Worksheets("sheet2").Range("A1:L47").Copy
ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range("A1:L47")
ActiveWorkbook.Save 
ActiveWorkbook.Close