Function traziZadnjuKolonu(ImeSita As String, OdReda As Integer, DoReda As Integer)
    Dim Zadnji As Long
    Dim ws As Worksheet
    Dim I As Integer
    Dim Brojac As Integer
    
    Set ws = Sheets(ImeSita)
    With ws
        For I = OdReda To DoReda
        Brojac = .Cells(I, .Columns.Count).End(xlToLeft).Column
        If Zadnji < Brojac Then
        Zadnji = Brojac
        End If
        Next I
    End With
    traziZadnjuKolonu = Zadnji
End Function