Function ZadnjiRed(ImeSita As String)
    Dim Zadnji As Long
    Dim ws As Worksheet
    
    Set ws = Sheets(ImeSita)
    With ws
        Zadnji = .Cells(.Rows.Count, "A".End(xlUp).Row =>OVO SLOVO A BI SE TREBALO MIJENJATI OVISNO O KOLONI U KOJOJ SE NALAZIM
    End With
    ZadnjiRed = Zadnji
End Function