preventing additional elements vba enterprising arrays

as due states, there proceed hinder additional elements arrangement adult vba enterprising arrays non-zero based?

for example, controlling formula identical following:

while cells(ndx, 1).value <> vbnullstring
    redim safety data(1 (ubound(data) + 1))
    ndx = ndx + 1
wend

you have an additional lifeless array component during finish processing. while distant following:

redim safety data(1 (ubound(data) - 1))

this doesn't seem best proceed solution problem.

as such, there proceed hinder additional component being combined initial place? preferably something doesn't need additional explanation inside loop.