Sub копированиелиста1()
'
' копированиелиста1 Макрос
'

'
    Sheets("ЭкспортБМ2").Select
    Range("A1:cZ800").Select
    Selection.Copy
    Sheets("ЭкспортБМ").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Sheets("ЭкспортБЗУ2").Select
    Range("A1:cZ800").Select
    Selection.Copy
    Sheets("ЭкспортБЗУ").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Sheets("ЭкспортАртис2").Select
    Range("A1:cZ800").Select
    Selection.Copy
    Sheets("ЭкспортАртис").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
    Sheets("ЭкспортЛимак2").Select
    Range("A1:cZ800").Select
    Selection.Copy
    Sheets("ЭкспортЛимак").Select
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
        
        
        

'Sub Лист_экспорт()
    Dim cPath As String, cPrefix As String, cName As String
    cPath = ThisWorkbook.Path & "\экспорт\"
    cPrefix = "Экспорт "
    cName = cPath & cPrefix & Replace(ThisWorkbook.Name, ".xlsm", "") & ".xlsx"
    Dim wbC As Workbook, wbE As Workbook
    Application.ScreenUpdating = False
    Application.Calculation = 3
    Set wbC = ThisWorkbook
    Dim a(1 To 4) As String
    a(1) = "ЭкспортБМ"
    a(2) = "ЭкспортЛимак"
    a(3) = "ЭкспортАртис"
    a(4) = "ЭкспортБЗУ"
    Application.DisplayAlerts = False
    Dim i As Byte
    For i = 1 To UBound(a)
        sort2 (a(i))
        Set wbE = Workbooks.Add
        With wbE.Sheets(1)
            .Name = "Экспорт"
            wbC.Sheets(a(i)).Cells.Copy
            .[a1].PasteSpecial xlPasteValues
        End With
        bName = cPath & cPrefix & Replace(ThisWorkbook.Name, ".xlsm", "") & " " & a(i) & ".xlsx"
        Application.Calculation = 1
        wbE.SaveAs Filename:=bName
        Application.Calculation = 3
        wbE.Close False
    Next i

    bPath = "D:\ОБЩИЕ_ДОКУМЕНТЫ\105 Бухгалтерия\Овощи_приход\"
    bPrefix = "БухПриход "
    bName = bPath & bPrefix & Replace(ThisWorkbook.Name, ".xlsm", "") & ".xlsx"
    'bName = bPath & bPrefix & Replace(ThisWorkbook.Name, ".xlsm", "") & a(i) & ".xlsx"
    Debug.Print bName
    Dim wbQ As Workbook, wbA As Workbook
    Application.ScreenUpdating = False
    Set wbQ = ThisWorkbook
    Set wbA = Workbooks.Add
    wbA.Sheets(3).Name = "Экспорт"
    wbQ.Sheets("Экспорт").Cells.Copy
    wbA.Sheets("Экспорт").[a1].PasteSpecial xlPasteValuesAndNumberFormats
    Application.DisplayAlerts = False
    wbA.Sheets(1).Name = "БухПрих"
    wbQ.Sheets("БухПрих").Cells.Copy
    wbA.Sheets("БухПрих").[a1].PasteSpecial xlPasteFormats
    wbA.Sheets("БухПрих").[a1].PasteSpecial xlPasteValuesAndNumberFormats
    Application.DisplayAlerts = False
    'wbA.Sheets(2).Name = "Выб. БУХ"
    'wbQ.Sheets("Выб. БУХ").Cells.Copy
    'wbA.Sheets("Выб. БУХ").[a1].PasteSpecial xlPasteFormats
    'wbA.Sheets("Выб. БУХ").[a1].PasteSpecial xlPasteValuesAndNumberFormats
    Application.DisplayAlerts = False
    wbA.SaveAs bName
    wbA.Close False
    Application.DisplayAlerts = True
    Application.ScreenUpdating = True
    
End Sub

Sub sort2(shn_)
Dim sh_ As Worksheet
Set sh_ = ThisWorkbook.Sheets(shn_)
With sh_
    r0_ = 3
    With .Cells(1)
        nr_ = .SpecialCells(xlLastCell).Row - r0_ + 1
        nc_ = .SpecialCells(xlLastCell).Column
    End With
    With .Sort
        .SortFields.Clear
        .SortFields.Add Key:=sh_.Cells(r0_, 2).Resize(nr_), Order:=xlDescending
        .SetRange sh_.Cells(r0_, 1).Resize(nr_, nc_)
        .Header = xlGuess
        .Apply
        r1_ = sh_.Cells(Rows.Count, 2).End(3).Row
        For i = r0_ To r1_
            If sh_.Cells(i, 2) = "" Then Exit For
        Next i
        If i < r1_ Then sh_.Cells(i, 1).Resize(r1_ - i).EntireRow.Delete
        .SortFields.Clear
        .SortFields.Add Key:=sh_.Cells(r0_, 2).Resize(i - r0_), Order:=xlAscending
        .SortFields.Add Key:=sh_.Cells(r0_, 1).Resize(i - r0_), Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange sh_.Cells(r0_, 1).Resize(i - r0_, nc_)
        .Header = xlGuess
        .Apply
    End With
End With
  Sheets("Заявки").Select
End Sub