Много таблиц, выборочное удаение строк

[Ice_Juice]

На одном листе есть 200 таблиц ( Во всех таблицах одинаковое количество столбцов и называются они одинаково, только вот количество строк разное.
1-ый столбец артику
7-ой название,
2,3,4,5,6 - смысловой нагрузки не несут.

2а вопроса:
1. Как удалить 2,3,4,5,6 - столбцы сразу во всех таблицах (соответственно нумерации название совпадает)
2. И как удалить строки, если нужно оставить только артикул одного типа
Заранее благодарен

[SAS888]

По 1 вопросу:
Пусть заголовки всех таблиц расположены в строке 1 и количество столбцов в каждой таблице - 7. Предлагаемый макрос удалит столбцы со 2 по 6 включительно в каждой таблице (количество столбцов между таблицами не критично).

Sub DeleteColumns()

    Dim MyCol As String, x As Range, y As Range, FstAddr As String
    
    If IsEmpty(Range("A1")) Then _
        MyCol = Cells(1, Range("A1").End(xlToRight).Column + 1) Else MyCol = Cells(1, Range("A1").Column + 1)
    Set x = Rows(1).Find(What:=MyCol, LookAt:=xlWhole)
    If x Is Nothing Then Exit Sub
    Set y = Range(Columns(x.Column), Columns(x.Column + 4))
    FstAddr = x.Address
    Do
        Set y = Union(y, Range(Columns(x.Column), Columns(x.Column + 4)))
        Set x = Rows(1).FindNext(x)
    Loop While FstAddr <> x.Address
    
    y.Delete
        
End Sub

По 2 вопросу:
Если не устраивает обычный автофильтр, то у Вас не оговаривается, каким образом получить

только артикул одного типа

Кто и куда его должен ввести? И для всех таблиц он один и тот же, или разные?