Option Explicit
Dim Niz() As Integer
Function NizCelija(rng As Range)
Dim BrojCelija As Integer
Dim I As Integer

ReDim Niz(rng.Count)

For Each rng In rng.Cells
I = I + 1
Niz(I) = rng.Value
Next rng
End Function

Function Vrati(RedBrCelije As Integer)
Vrati = Niz(RedBrCelije)
End Function