исключить не нужные столбцы при Нажатии кнопки на итоговых листах сортировки

[Максим 52]

Здравствуйте!
Прошу помощи поправить макрос.
Как исключить не нужные столбцы при Нажатии кнопки на итоговых листах сортировки
в "исходные данные" копируется таблица, с помощью кнопки происходит разнос (копирование) строк по критерию поиска на разные листы.
Проблема в том, не все столбцы нужны.
Например: на листе "Договор Выполнен" только столбцы А, В, Е
а на листе "Договор принят" А, В, F

[kuklp]

Вот кусок кода:

Код Выделить Развернуть

        rngIsxodn.AutoFilter Field:=2, Criteria1:=Crit1
        .Range("C:D,G:G").EntireColumn.Hidden = True
    .AutoFilter.Range.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy _
    Worksheets("Договор Выполнен").Range("A2")
        rngIsxodn.AutoFilter
        Range("C:E,G:G").EntireColumn.Hidden = True
         rngIsxodn.AutoFilter Field:=2, Criteria1:=Crit2
    .AutoFilter.Range.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy _
    Worksheets("Договор принят").Range("A2")
        rngIsxodn.AutoFilter
       Range("C:E,G:G").EntireColumn.Hidden = False
        rngIsxodn.AutoFilter Field:=2, Criteria1:=Crit3
    .AutoFilter.Range.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy _
    Worksheets("Отказ").Range("A2")
        rngIsxodn.AutoFilter
       
        rngIsxodn.AutoFilter Field:=2, Criteria1:=Crit4
    .AutoFilter.Range.Offset(1, 0).SpecialCells(xlCellTypeVisible).Copy _
    Worksheets("Назначено").Range("A2")
        rngIsxodn.AutoFilter
   
    End With