Dim ends(5) As Integer
For d = 5 to 0 step -1
ends(d) = Range("A50000").End(xlUp).Row
Next d

Better. It works, but, my array size will not always be 5 (6 including
0). It must be constant? My loop steps backwards, and fills my array
backwards. How can I reverse it?