Public Sub AfterOpen()
Dim i As Integer, n As Integer
Dim list As Worksheet, ls As Worksheet

Set list = ActiveWorkbook.Worksheets("Лист2")
Set ls = ActiveWorkbook.Worksheets("Лист1")

n = list.Cells(1, 1).Value
'    For i = n To 250
'        Columns(i).Delete
'        Next i

sl.Range(n, 250) = 0

Application.Visible = True
Application.ScreenUpdating = True

'Удаляем Диапазон
'Sheets.Names("Query2").Delete
'Задаём диапазон
'ls.Names.Add "Query2", ls.Range("A1:F" & n)

Sheets("Лист1").Select

'Выводим Оповещающее Объявление
MsgBox ("Расчт заврешён!")
End Sub

Columns("A:B").Delete Shift:=xlToLeft

Columns("A:B").Delete Shift:=xlToLeft

Range(Cells(1, n), cells(1, 250)).EntireColumn.Delete

Range(Cells(1, n), cells(1, 250)).EntireColumn.Delete

Public Sub macros1()
Application.Visible = True
Application.ScreenUpdating = True
Dim i As Integer, j As Integer, N As Integer, m As Integer, s As Integer, l As Integer
Dim list As Worksheet, ls As Worksheet

Set list = ActiveWorkbook.Worksheets("Лист2")
Set ls = ActiveWorkbook.Worksheets("Лист1")
    
N = list.Cells(1, 1).Value
m = list.Cells(1, 2).Value
l = 0
j = 10
    Do While l < m
        s = 0
            For i = 21 To N + 20
                If IsEmpty(Cells(i, j)) Then
                    s = s + 1
                    End If
                Next i
            If s = N Then
                MsgBox ("Есть пустая колонка !")
                'Columns("C:C").ColumnWidth = 0.08
                Columns(Cells(1, j), Cells(1, j + 3)).ColumnWidth = 0
                End If
        l = l + 1
        j = j + 4
Exit Do
    Loop
    
'MsgBox ("Расчёт завершён !")
End Sub