[Spirosgr]

Καλημέρα
Θα έλεγα, να χρησιμοποιήσεις κάτι τέτοιο...

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim c As Range, H_rng As Range, T_rng As Range
    Set H_rng = Range("Table1[#Headers]")
    Set T_rng = Range("Table1[#Totals]")
    If Not Intersect(Target, H_rng) Is Nothing Then
        Target.EntireColumn.Hidden = True
    ElseIf Not Intersect(Target, T_rng) Is Nothing Then
        Columns.Hidden = False
    Else
        Exit Sub
    End If
    Cancel = True
End Sub

ώστε να μην εξαρτάσαι, από την θέση, το πλάτος, το ύψος ... κλπ του πίνακα,
αλλά και από γραμμές ή «κουτάκια», που θα πρέπει να αλλάζεις κάθε φορά,
σε περίπτωση, οποιασδήποτε αλλαγής στον πίνακα.

Διπλό κλικ σε κεφαλίδα = κρύβει την συγκεκριμένη στήλη.
Διπλό κλικ σε total οπουδήποτε = εμφανίζει όλες.

Η εμφάνιση επηρεάζει όλο το φύλλο, οπότε (αν θες)
το τροποποιείς μόνο για το συγκεκριμένο list object
Σημείωση:
Όπου Table1 το όνομα του πίνακα...