How to redim / resize a dynamic array with unknown elements

[Xceller]

Hi vba gurus - I am hoping to get some help after trying many times without success.

I have a range of data ("A1:D11"), the first row is a header row

----A-------B-------C--------D-------
----ID---Amount----ID----Amount-----
---101-----$10-----113-----$2--------
---102-----$45-----110-----$5--------
---103-----$78-----122-----$8--------
---104-----$93-----100----$45--------
---105-----$56-----101----$63--------
---106-----$42-----102----$92--------
---107----$552-----106----$84--------
---108-----$11-----107----$72--------
---109----$214-----105----$15--------
---110-----$11-----108----$61--------

This is currently what I have in column F with blanks in between

--F--
101
102


105
106
107
108

110

This is what I want in column F (Without Blanks)
--F--
101
102
105
106
107
108
110

Please Login or Register  to view this content.

[MickG]

Untested:-

Please Login or Register  to view this content.

[AB33]

Please Login or Register  to view this content.

is a 2 d array=(10,4) is redim to (10,1)

[Xceller]

MickG, Thank you for you help. Works great.

[Xceller]

@AB33 - Thanks for you input. Could you explain your comment?

[AB33]

Initially the array is loaded with

Please Login or Register  to view this content.

and then redim it to

Please Login or Register  to view this content.

which is(1 to 10, to 1 to 1).
In effect, by redim in, you have reduced the 2nd upper dim in to a single column

[Xceller]

@AB - Thanks for the explanation.