Function Zadnja_Kolona()
    Dim Zadnja As Long
    With ActiveSheet.UsedRange
        Zadnja = .Columns(.Columns.Count).Column
    End With
    MsgBox Zadnja
End Function