не копировать пустые строчки

[vostok]

Всем привет. Знатоки, помогите, пожалуйста, есть код, он копирует табличку (10 строчек 7 столбцов) и значения вставляет в непрерывный список:

ActiveSheet.Unprotect
[b4:h13].Copy
Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

и т.д.
Вопрос в том, что табличка не всегда полная, может быть заполнено только 5 строчек, можно поправить, чтобы копировались только заполненные строки? Опираться можно на значение первого столбца, "B", есть в нем данные или нет.
Это, конечно, непринципиально, просто хочу упростить код.

[ratibor]

Включаешь Запись макроса.
Ставишь автофильтр на диапазон. Копируешь. Вставляешь. Убираешь автофильтр. Остановка макроса. Полученный код подставляешь в свой.

[nilem]

попробуйте так

ActiveSheet.Unprotect
i = Cells(Rows.Count, 2).End(xlUp).Row
With Range("B4:H" & i)
    .Offset(.Rows.Count).Value = .Value
End With