Удаление ненужных строк при копировании отобранных данных

[Gorimir]

Здравствуйте!

Необходимо создать лист выборки из таблицы, выбранные данные должны копироваться на лист "отчет". Подробнее см.пример.

Проблема в том, что копируются еще заголовок и строка итогов. Но прописать просто диапазон (например B5:H20)нельзя, так как заранее неизвестно, что будет выбираться.

Поэтому задаю сразу имя всей таблицы, а что после фильтрации останется, то и копируется. Но копируется, повторюсь, с заголовками и строкой итогов, которые не нужны.

Подскажите, пожалуйста, как их убрать. Возможно, весь алгоритм действий кардинально не правильный

Я недавно в экселе таблицы писать начала, опыта мало.

Заранее спасибо.

[Dophin]

не совсем понял зачем Вам фильтрация, может так хватит?

Sub pp()
Dim sh1 As Worksheet
Dim sh2 As Worksheet
Dim il As Long, il2 As Long
Set sh1 = Sheets("Исходные данные")
Set sh2 = Sheets("Отчет")
il2 = sh2.Cells(Rows.Count, 2).End(xlUp).Row
sh2.Range("b5:h" & il2).Clear
il = sh1.Cells(Rows.Count, 2).End(xlUp).Row - 1
sh1.Range(sh1.Cells(4, 2), sh1.Cells(il, 8)).Copy
sh2.Cells(5, 2).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

[Gorimir]

Фильтрация использована потому, что я других выходов найти не смогла, к сожалению, пока синтаксис ВБА знаю из рук вон плохо, но буду учить, хотя бы для того, чтобы ответ понять)

[Dophin]

ну работает то как надо? иль не?

[SAS888]

На сколько я понял, автору требуется выбрать из списка те значения, которые удовлетворяют условиям ячеек с выпадающими списками строки 4 листа "Отчет". Если так, то я тоже предлагаю обойтись без фильтра. Посмотрите вложение. Выберите требуемые значения из выпадающих списков и нажмите кнопку "Выборка".

[SAS888]

Во вложении исправленный файл, в котором исключены возможные ошибки.

[Gorimir]

Спасибо ОГРОМНОЕ) ответившим!!!
работает) отлично) и гораздо быстрее, чем в моем варианте)
Буду разбирать и приспосабливать к своей базе)

[Gorimir]

Очистка листа, к сожалению, работает правильно только если заполнет последний столбец( если нет то удаляет информацию только с 3 строк

[SAS888]

Для устранения этого недостатка, в коде макроса строку

Range([B5], Cells(Rows.Count, "H").End(xlUp).Offset(3)).ClearContents

замените на

Range([B5], Cells(Rows.Count, "H")).ClearContents

[Gorimir]

Премного благодарна) работает отлично