Перенос строк по условию

[glok.01]

Всем доброго времени суток, прошу подсказать как перенести все строки с лист1 в которых в столбце H стоит цифра "1" на лист2. Интересует только макрос.

[ArtNord]

Sub Перенос()
All = Cells.SpecialCells(xlCellTypeLastCell).Row
b = 1
With Sheets("Лист2")
For a = 1 To All
If Cells(a, 8) = 1 Then
Range(.Cells(b, 1), .Cells(b, 7)).Value = Range(Cells(a, 1), Cells(a, 7)).Value: b = b + 1
End If
Next a
End With
End Sub

[glok.01]

ArtNord, Спасибо Вам преогромное

[сфинкс]

Принцип возможно применим в Спецификации

Допустим есть предыдущая или специальная большая спецификация
или каталог товаров

Ставим в ячейку нужный символ
и макрос обособит на новый лист требующиеся элементы