Option Explicit
Function Prosjecna_vrijednost(kolona As Integer)
Dim zadnji, I As Integer
Dim suma As Single

zadnji = Cells(Rows.Count, kolona).End(xlUp).Row
For I = 1 To zadnji
suma = suma + Cells(I, 1)
Next I
suma = suma / zadnji
Prosjecna_vrijednost = suma
End Function