[ChrisGT7]

Καλησπέρα Δημήτρη,

Δοκίμασε τον παρακάτω κώδικα:

Option Explicit

Sub DIAGRAFH()
    Dim I    As Long
    Dim Fclm As Long: Fclm = Selection.Columns(1).Column
    Dim Lclm As Long: Lclm = Selection.Columns(Selection.Columns.Count).Column
    
    Application.ScreenUpdating = False
    For I = Lclm To Fclm Step -1
        If Cells(6, I).Value = 0 And Cells(6, I).Value <> "" Then _
            Columns(I).EntireColumn.Delete
    Next
    Application.ScreenUpdating = True
End Sub

Ο παραπάνω κώδικας κάνει το εξής:
Αφού μαρκάρεις ένα συνεχόμενο εύρος/περιοχή (π.χ. τη γραμμή 1 ή όλη την περιοχή που σε ενδιαφέρει), ελέγχει απ' όλες τις στήλες της επιλεγμένης περιοχής το κελί της γραμμής 6. Αν η τιμή του είναι 0, τότε διαγράφει ολόκληρη τη στήλη.