Sub sheet_save()
    Dim fileSaveName As String
    Dim namef As String
    Dim namef2 As String
    Dim namef3 As String
    Dim namef4 As String
    Dim path As String
    Dim FullName
     
    FullName = "E:\Excel\"
     namef = CStr(Range("A12").Value)
     namef2 = CStr(Range("D12").Value)
     namef3 = CStr(Range("E12").Value)
     namef4 = CStr(Range("G12").Value)
     path = FullName
    fileSaveName = path & namef & namef2 & namef3 & namef4 & ".xlsx"
     
     ThisWorkbook.Sheets("Лист1").Select
    Range("A1:H65").Copy
    With ActiveWorkbook
        ActiveSheet.SaveAs Filename:=fileSaveName, FileFormat:=51
        .Close True
    End With
     
End Sub