kolommen automatisch verbergen via VB

Sub dotchieverberg()
Dim CEdot As Range
Dim ROdot As Range
Dim COdot As Long
Application.ScreenUpdating = False
For COdot = 4 To 44 Step 1
   Set CEdot = Range("A8").Offset(0, COdot)
   If Len(CEdot.Value) = 0 Then
      Set ROdot = CEdot.End(xlDown)
      If ROdot.Row = Rows.Count And Len(ROdot.Value) = 0 Then
         Columns(CEdot.Column).Hidden = True
      End If
   End If
Next
Application.ScreenUpdating = True
End Sub

Private Sub CommandButton1_Click()
Dim u As Range
If CommandButton1.Caption = "Zichtbaar maken" Then
  Cells.Columns.Hidden = 0
  CommandButton1.Caption = "verbergen"
 Else
  With Cells(5, 2).CurrentRegion
    For Each cl In .Cells(1, 3).Resize(, .Columns.Count - 2)
      If Application.Count(cl.Offset(2).Resize(.Rows.Count - 2)) = 0 Then
        If u Is Nothing Then Set u = cl Else Set u = Union(u, cl)
      End If
    Next cl
  End With
  If Not u Is Nothing Then u.Columns.Hidden = True
  CommandButton1.Caption = "Zichtbaar maken"
End If
End Sub