Sub UsunKolumny()

Dim i As Long, k As Long
Dim bNieUsuwaj As Boolean

'Tutaj nalezy ustawic numer wiersza
Const lngWiersz As Long = 3

'A tu nalezy ustawiac opis kolumn ktore nie maja
'zostac usuniete
Dim strKolumna(0 To 1) As String
strKolumna(0) = "Data"
strKolumna(1) = "Zamkniecie"

i = 1

Do While Cells(lngWiersz, i).Value <> ""

    bNieUsuwaj = False
    
    For k = LBound(strKolumna) To UBound(strKolumna)
        bNieUsuwaj = bNieUsuwaj Or (Cells(lngWiersz, i).Value = strKolumna(k))
    Next k
    
    If Not bNieUsuwaj Then
        Columns(i).Delete
        If i > 1 Then i = i - 1
    Else
        i = i + 1
    End If
    
Loop

End Sub