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