сортировка строчек

[0mega]

желаю всем доброго времени суток.
Имеется список поставщиков с общепринятыми данными (наименование товара , ИНН, дата, тлф, НДС и т.д.)
Надо все отмеченные строчки (напр)*
разместить вместе (было бы неплохо и в алфавитном порядке. Но можно и без алфавитного возрастания)
Спасибо

[ELE-COM]

Все просто:
Выделяете нужные вам строки, меню "данные" > "сортировка"
В первом поле выберите столбец "E" во втором "I", жмете ОК.

[0mega]

Благодарю а оперативный ответ. Все хорошо, но есть одно ма-а-а-ленькое "но" В тестовом файле все работает на "ура", а в рабочей таблице машина начинает ругаться (см. рис)
перелопачивать все столбики под 1 ячейку - нет никакой возможности.
Возможно ли заставить машину выполнять те же действия, но с ячейками разного размера ?

[Serge 007]

Дело не в размерах ячеек, точнее не совсем в них...
Вам надо избавиться от объединённых ячеек, тогда всё будет работать.

[nilem]

Просто скрыть. С 7-й строки начинаются данные?

Private Sub Скрыть()
Dim rng As Range, poz As Range
Set rng = Range("A7:A" & Cells(Rows.Count, "A").End(xlUp).Row)

For Each poz In rng
    If IsEmpty(poz) Then poz.EntireRow.Hidden = True
Next poz

End Sub