Excel Vba Array Remove Empty Lines