Sub test()
    Sheets("List1").Select
    
    Dim prvaKolona As Long
    prvaKolona = 1 'pocinjemo od 1.kolone
    Dim zadnjaKolona As Long
    
    zadnjaKolona = ActiveSheet.Range("A1").CurrentRegion.Columns.Count
    Dim prviRed As Long
    Dim ImeKolone As String
    prviRed = 2 'pocinjemo od 2.reda jer je prvi red zaglavlje
    Dim zadnjiRed As Long
    For f = prvaKolona To zadnjaKolona
        With ActiveSheet
        Dim Cell As Range
            For Each Cell In .Columns(f).Cells
                If Len(Cell) = 0 Then
                MsgBox "Celija" & Cell.Address
                Exit For
                End If
            Next Cell
        End With
    Next f
    
End Sub