Function ZadnjaPunaKolona()
'Pronalazi zadnju popunjenu kolonu u redu 1
    Dim ZadnjaKolona As Long
    With ActiveSheet
        ZadnjaKolona = .Range("A1").SpecialCells(xlCellTypeLastCell).Column
    End With
    MsgBox ZadnjaKolona
End Function