На Листе1, в столбце A у вас начальные данные.
Ставите курсор на B1, вставляете формулу.
Нажимаете Ctrl+Shift+Enter - активируете формулу для массива.
=ЕСЛИОШИБКА(ИНДЕКС(Лист1!A$1:A$99;НАИМЕНЬШИЙ(ЕСЛИ(Лист1!A$1:A$99<>"";СТРОКА(Лист1!A$1:A$99));СТРОКА(B1)));"")
Протаскиваете выделенную ячейку B1 на необходимую длину по столбцу.