Sub Test()

    Sheets("Закупки").Select
    ActiveSheet.AutoFilterMode = False
    ActiveSheet.ListObjects("Закупки").Range.AutoFilter Field:=52, Criteria1:="error"
      
    If ActiveSheet.ListObjects("Закупки").Range.SpecialCells(xlCellTypeVisible).Count > 0 Then
        MsgBox "Ошибка себ-ти Закупки"
        Exit Sub
    Else
        ActiveSheet.ShowAllData

    End If
    
    Sheets("Продажи").Select
    ActiveSheet.AutoFilterMode = False
    ActiveSheet.ListObjects("Продажи").Range.AutoFilter Field:=38, Criteria1:="error"
    If ActiveSheet.ListObjects("Продажи").Range.SpecialCells(xlCellTypeVisible).Count > 0 Then
        MsgBox "Ошибка себ-ти Продажи"
        Exit Sub
    Else
        ActiveSheet.ShowAllData
    End If


End Sub

    ThisWorkbook.Activate
    Sheets("for csv").Select
    Range("D5").Select
    ActiveSheet.PivotTables("PivotTable2").PivotCache.Refresh
    Application.CalculateUntilAsyncQueriesDone
    
    Range("B5:Z5").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Workbooks.Add
    Range("A1").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    
    Columns("M:N").Select
    Selection.NumberFormat = "dd.mm.yyyy"
    Columns("S:S").Select
    Selection.NumberFormat = "0.00"
    Range("A1").Select
    
    File_name_for_save = Workbooks("PRICE LIST upload.xlsm").Sheets("for csv").Range("A1").Value
    
    With Application.FileDialog(msoFileDialogSaveAs)
        .InitialFileName = File_name_for_save
        If .Show = 0 Then Exit Sub
        Application.DisplayAlerts = False
        ActiveWorkbook.SaveAs Filename:=File_name_for_save
        Application.DisplayAlerts = True
    End With
    
    'ActiveWorkbook.SaveAs Filename:=File_name_for_save, FileFormat:=xlText, CreateBackup:=False
    'ActiveWorkbook.Close

BMdata = "https://eu001-sp.shell.com/:x:/r/sites/AAAAA9296/mytmnw/emea/ruscee/xxxxxxxxx..."

Workbooks.Open BMdata

Set bookList = Workbooks.Open(FileItem)
    Application.CalculateUntilAsyncQueriesDone
For Each sSheet In ActiveWorkbook.Sheets
    If sSheet.Name = "Deal for pricing_Direct" _
    Or sSheet.Name = "Main" _
    Or sSheet.Name = "SAM_Direct" _
    Or sSheet.Name = "AUREUS DEAL" _
    Or sSheet.Name = "DEAL HEADER" _
    Or sSheet.Name = "DirCust+AM" _
    Or sSheet.Name = "GUARDRAILS by Sold-to" _
    Or sSheet.Name = "Product Data" _
    Or sSheet.Name = "LPC" _
    Or sSheet.Name = "FX&STL&Dist" _
    Or sSheet.Name = "PL_new" _
    Or sSheet.Name = "rules" _
    Then
    Else
        sSheet.Copy After:=Workbooks(sModel).Sheets(Workbooks(sModel).Sheets.Count)
    End If
Next

Sub Macro1()
    
    Dim lClmn As Long
    lClmn = Cells(5, Columns.Count).End(xlToLeft).Column
    Rng = Cells(6, lClmn)
    Range("X6").Select
    ActiveCell.FormulaR1C1 = "=R4C&"" : ""&R5C"
    Cells(6, 23).AutoFill Destination:=Cells(6, 23).Resize(Cells(6, lClmn).End(xlToLeft).Column - 1)
                        
End Sub

For i2 = 1 To Sheets.Count
    If Sheets(i2).Name = "Main" _
    Or Sheets(i2).Name = "SAM" _
    Or Sheets(i2).Name = "AUREUS DEAL" _
    Or Sheets(i2).Name = "Deal for pricing" _
    Or Sheets(i2).Name = "FX" _
    Or Sheets(i2).Name = "PL" _
    Or Sheets(i2).Name = "Ship-to data" _
    Or Sheets(i2).Name = "GUARDRAILS by Sold-to" _
    Or Sheets(i2).Name = "ProdName" _
    Or Sheets(i2).Name = "rules" _
    Or Sheets(i2).Name = "STL&Distr" _
    Or Sheets(i2).Name = "Project for pricing" _
    Or Sheets(i2).Name = "Projects" _
    Or Sheets(i2).Name = "LPC_old" _
    Or Sheets(i2).Name = "LPC" Then
    Else: Sheets(i2).Copy After:=Workbooks(sModel).Sheets(Workbooks(sModel).Sheets.Count)
       End If
Next i2