data = ActiveSheet.Range("A6", ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp)).Value
Diese "sparsame" Variante errzeugt leider nur ein einspaltiges Array, welches allerdings als zweidimensional daherkommt.
Debug.print data(1,1)
Gruß KH