накладная на основе прайса

[AEI]

Здравствуйте знатоки XL. Я не силен в XL и тем более в макросах помогите подправить формулу сбора данных на основе прайса из разных листов по кол-ву наименования на отдельный лист ЗАЯВКА 1. Я нашел формулу для сбора данных, но хотелось бы чтобы данные проставлялись в строках подряд.

[IgorGO]

Sub FillOrder()
  Dim rg As Range, ws As Worksheet
  Set rg = Cells(Rows.Count, 2).End(xlUp)
  If rg <> "НАИМЕНОВАНИЕ" Then Range(Cells(5, 2), rg).EntireRow.Delete
  For Each ws In Worksheets
    If Not ws.Name Like "ЗАЯВКА*" Then
      If WorksheetFunction.Count(ws.Columns(3)) > 0 Then
        Intersect(ws.Range("B:F"), ws.Columns(3).SpecialCells(2, 1).EntireRow).Copy _
         Cells(Rows.Count, 2).End(xlUp).Offset(1, 0)
      End If
    End If
  Next
End Sub

[AEI]

Спасибо БОЛЬШОЕ. Подскажите если добавлять еще листы менять ничего не надо.

[AEI]

Спасибо БОЛЬШОЕ.

[AEI]

IgorGO СПАСИБО БОЛЬШОЕ