Sub УдСтолбцов()
    Dim LastCol As Long
    Dim rngDelete As Range
    Dim ws As Worksheet

    Application.ScreenUpdating = False
    Application.Calculation = xlCalculationManual

    For Each ws In ActiveWorkbook.Worksheets
        With ws
            LastCol = .Cells(2, .Columns.Count).End(xlToLeft).Column
            For y = LastCol To 7 Step -1
                If Not (.Cells(2, y).Value = "A" Or .Cells(2, y).Value = "B") Then
                    If rngDelete Is Nothing Then
                        Set rngDelete = .Columns(y)
                    Else
                        Set rngDelete = Union(rngDelete, .Columns(y))
                    End If
                End If
            Next y
            If Not rngDelete Is Nothing Then rngDelete.Delete
        End With
    Next ws

    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic

End Sub

Sub RemoveColumns()
    Dim ws As Worksheet
    Dim lastColumn As Integer
    Dim i As Integer
    
    For Each ws In ThisWorkbook.Worksheets 
        lastColumn = ws.Cells(2, Columns.Count).End(xlToLeft).Column 
        For i = lastColumn To 7 Step -1 
            If ws.Cells(2, i) <> "A" And ws.Cells(2, i) <> "B" And ws.Cells(2, i) <> "C" And ws.Cells(2, i) <> "D" And ws.Cells(2, i) <> "E" And ws.Cells(2, i) <> "F" And ws.Cells(2, i) <> "G" And ws.Cells(2, i) <> "H" Then
                ws.Columns(i).Delete Shift:=xlShiftToLeft 
            End If
        Next i
        
        If ws.Name = "Лист1" Then 
            If lastColumn > 6 Then
                ws.Range(ws.Cells(1, 7), ws.Cells(1, lastColumn)).EntireColumn.Delete Shift:=xlShiftToLeft
            End If
        ElseIf ws.Name = "Лист2" Then
            If lastColumn > 4 Then
                ws.Range(ws.Cells(1, 1), ws.Cells(1, 4)).EntireColumn.Delete Shift:=xlShiftToLeft
                ws.Range(ws.Cells(1, 5), ws.Cells(1, lastColumn)).EntireColumn.Delete Shift:=xlShiftToLeft
            End If
        ElseIf ws.Name = "Лист3" Then
            If lastColumn > 2 Then
                ws.Range(ws.Cells(1, 1), ws.Cells(1, 2)).EntireColumn.Delete Shift:=xlShiftToLeft
                ws.Range(ws.Cells(1, 3), ws.Cells(1, lastColumn)).EntireColumn.Delete Shift:=xlShiftToLeft
            End If
        ElseIf ws.Name = "Лист4" Then
            If lastColumn > 0 Then
                ws.Range(ws.Cells(1, 1), ws.Cells(1, 6)).EntireColumn.Delete Shift:=xlShiftToLeft
            End If
        End If
    Next ws
End Sub

Sub УдСтолбцов()
Dim LastCol As Long
Dim rngDelete As Range

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

With ActiveSheet
    LastCol = .Cells(2, .Columns.Count).End(xlToLeft).Column
    For y = LastCol To 7 Step -1
        If Not (.Cells(2, y).Value = "A" Or .Cells(2, y).Value = "B") Then
            If rngDelete Is Nothing Then
                Set rngDelete = .Columns(y)
            Else
                Set rngDelete = Union(rngDelete, .Columns(y))
            End If
        End If
    Next y
    If Not rngDelete Is Nothing Then rngDelete.Delete
End With

Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub