Скрыть пустые столбцы

Option Explicit
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Application.EnableEvents = False
    Module1.ActiveRow_ShowHideSuppliers
    Application.EnableEvents = True
End Sub
 
Sub ActiveRow_ShowHideSuppliers()
    Dim product As Long, supplier As Long
    
    With ActiveCell
        product = .Row
        With .Worksheet
            supplier = 3
            Do While .Cells(1, supplier) <> Empty
                If .Cells(product, supplier) <> Empty Then
                    .Columns(supplier).Hidden = False
                Else
                    .Columns(supplier).Hidden = True
                End If
                supplier = supplier + 1
            Loop
        End With
    End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Icol As Integer
  Icol = Cells(1, Columns.Count).End(xlToLeft).Column
  Range("3:" & Icol).EntireColumn.Hidden = False
  If Target.Column = 1 And Cells(Target.Row, 1) <> "" Then Call Hidd(Icol) Else Exit Sub
End Sub

Sub Hidd(Icol As Integer)
Dim I As Integer, J As Integer
Application.ScreenUpdating = False
'товар заполнен и встали на столбец товара, тогда прорежаем, иначе можем вводить данные
  For I = 3 To Icol
    If Cells(ActiveCell.Row, I) = "" Then Columns(I).EntireColumn.Hidden = True  'Прячем
  Next
Application.ScreenUpdating = True
End Sub