[Tasos]

Καλησπέρα!
Θανάση (Thanosp) πολύ καλό και εύστοχο!
Αν τελικά αυτό είναι το ζητούμενο του Γρηγόρη θα ήθελα να δοκιμάσεις το παρακάτω (λειτουργεί μέχρι και 16.382 στήλες ):

Sub DeletAllFalseColumns()
    On Error Resume Next
    With Range(Cells(4, 3), Cells(4, Columns.Count).End(xlToLeft))
        .Replace what:=False, Replacement:=""
        .SpecialCells(xlCellTypeBlanks).EntireColumn.Delete
    End With
End Sub

Θανάση Styl. με πρόλαβες!

Τάσος