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
        'zadnjiRed = ActiveSheet.Cells.Range("A1").End(xlDown).Row
        'odrediti zadnji red prije praznog polja za svaki stupac f
        With ActiveSheet
        zadnjiRed = .Cells(.Rows.Count, f).End(xlUp).Row
        ImeKolone = Split(.Cells(, f).Address, "$")(1)
        End With
        'MsgBox "kolona:" & ImeKolone & vbNewLine & "zadnjiRed:" & zadnjiRed
        Dim R As String
        R = MsgBox("kolona:" & ImeKolone & vbNewLine & "zadnjiRed:" & zadnjiRed, _
            vbOKCancel + vbApplicationModal + vbDefaultButton1, "Napomena")
        If R = vbCancel Then
        Exit For
        End If
    Next f
    
End Sub