sub test() for c=1 to ZadnjaKolona MsgBox ZadnjiRed("List1",c) 'ispise za svaku kolonu c koji je zadnji red next c end Sub Function ZadnjiRed(ImeSita As String, kolona) Dim Zadnji As Long Dim ws As Worksheet Set ws = Sheets(ImeSita) With ws Zadnji = .Cells(.Rows.Count, kolona).End(xlUp).Row End With ZadnjiRed = Zadnji End Function Function ZadnjaKolona(ImeSita As String) Dim Zadnji As Long Dim ws As Worksheet Set ws = Sheets(ImeSita) With ws Zadnji = .Cells(1, .Columns.Count).End(xlToLeft).Column End With ZadnjaKolona = Zadnji End Function