Проблема со скрытием столбцов/ячеек в Microsoft Excel

[Forbidden-fruit]

Добрый день!

Есть огромнейшая проблема, на решение которой я каждую неделю трачу много драгоценного времени, но поскольку я не гуру в Excel, прошу помочь знающих людей решить данную проблему.
Есть лист Excel с кучей столбцов. Каждую неделю мне нужно делать отчет-выборку лишь по определенным значениям, которые обновились. Допустим, из 2700 столбцов нужно, чтобы осталось 90 (каждую неделю разное количество обновлений).
Вручную мне приходится выделять ненужные столбцы и скрывать их. Можно ли как-то автоматизировать процесс?
Была бы признательна за советы по существу.
Прилагаю пример этой огромной "портянки" и того, что требуется с ней сделать (названия столбцов удалены из соображений конфиденциальности).
С уважением, Надежда.

[Aleksandr H.]

Sub HideCol()
    Dim cl As Range, rTest As Range
     
    Set rTest = Range("b4", Range("b4").End(xlToRight))
    For Each cl In rTest
        If Not cl.Value > 0 Then
            cl.EntireColumn.Hidden = True
        End If
    Next cl
End Sub

[Demetros]

Вариант с помощью надстройки повер квери.