Function ZanjiRedKolone() 'Pronalazi zadnj prazan red u koloni A1 Dim ZadnjRed As Long With ActiveSheet ZadnjRed = .Range("A1").SpecialCells(xlCellTypeLastCell).Row End With MsgBox ZadnjRed End Function