Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    On Error GoTo macro
macro:
    Call Module1.macros1
    Application.ScreenUpdating = True
End Sub

Sub macros1()

Dim LastRow As Long

Set WS1 = ActiveWorkbook.Sheets("Параметры")
Set WS2 = ActiveWorkbook.Sheets("Лист1")

k = WS1.Cells(2, 3).Value2

LastRow = WS2.Cells(Rows.Count, 1).End(xlUp).Row

If k = 1 Then
    
    If LastRow <= 1 Or IsNull(LastRow) Then
        GoTo err
    End If
    
    Call macros2
       
    WS1.Cells(2, 3) = 0
    WS2.Visible = False
End If

err:

End Sub

Sub macros2()

'Объявляем переменные
Dim DSheet As Worksheet
Dim LastRow As Long
Dim LastCol As Long

On Error Resume Next

Application.DisplayAlerts = False
Set DSheet = Worksheets("Лист1")

'Диапазон
LastRow = DSheet.Cells(Rows.Count, 1).End(xlUp).Row
LastCol = DSheet.Cells(1, Columns.Count).End(xlToLeft).Column

ActiveSheet.Range("A1:AB" & LastRow).AutoFilter Field:=1, Criteria1:="1"

Range("B1:H" & LastRow).Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Лист2").Select
Sheets("Лист2").Name = "Выгрузка1"

Sheets("Лист1").Select
ActiveSheet.Range("A1:AB" & LastRow).AutoFilter Field:=1, Criteria1:="2"
Range("I1:R" & LastRow).Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Лист3").Select
Sheets("Лист3").Name = "Выгрузка2"

Sheets("Лист1").Select
ActiveSheet.Range("A1:AB" & LastRow).AutoFilter Field:=1, Criteria1:="3"
Range("S1:AB" & LastRow).Select
Selection.Copy
Sheets.Add After:=Sheets(Sheets.Count)
ActiveSheet.Paste
Application.CutCopyMode = False
Sheets("Лист4").Select
Sheets("Лист4").Name = "Выгрузка3"
Sheets("Лист1").Select
Application.DisplayAlerts = True

End Sub