Private Sub CommandButton1_Click()
Application.ScreenUpdating = 0: Application.EnableEvents = 0
Dim Rng, ResRng As Range
     If CommandButton1.Caption = "Скрыть пустые столбцы" Then
         Set Rng = Range("F5:J5").Find(Empty, LookIn:=xlValues)
         If Not Rng Is Nothing Then
             Set ResRng = Rng
             firstAddress = Rng.Address
             Do
                 Set Rng = Range("F5:J5").FindNext(Rng)
                 Set ResRng = Union(ResRng, Rng)
             Loop While Not Rng Is Nothing And Rng.Address <> firstAddress
             ResRng.EntireColumn.Hidden = 1
         End If
         Set Rng = Range("L6:L19").Find(Empty, LookIn:=xlValues)
         If Not Rng Is Nothing Then
             Set ResRng = Rng
             firstAddress = Rng.Address
             Do
                 Set Rng = Range("L6:L19").FindNext(Rng)
                 Set ResRng = Union(ResRng, Rng)
             Loop While Not Rng Is Nothing And Rng.Address <> firstAddress
             ResRng.EntireRow.Hidden = 1
         End If
         CommandButton1.Caption = "Отразить все столбцы"
     Else
         Range("F5:J5").Columns.Hidden = False
         Range("L6:L19").Rows.Hidden = False
         CommandButton1.Caption = "Скрыть пустые столбцы"
     End If
Application.ScreenUpdating = 1: Application.EnableEvents = 1
End Sub