Умная печать

[Ogeris]

Добрый день!

Прикрепляю файл с макросом.

В файле - ярлыки для печати (один ярлык = один лист). В каждом ярлыке есть:
1. Адрес объекта (строки 6, 21, 36, 51...)
2. Наименование продукции (строки 2, 17, 32, 47...; Шанежка с творогом и Рогалик с изюмом)
3. Кол-во (строки 8, 23, 38, 53...)

Пустой ярлык означает, что в строках с кол-ом стоит 0 (ноль).

Сейчас макрос печатает непустые ярлыки слева-направо, не обращая внимания на наименование продукции и адрес объекта.

Хотелось бы, чтобы он печатал в таком порядке:

1.1. Сначала все непустые ярлыки шанежки с творогом для объекта 1,
1.2. Потом все непустые ярлыки для шанежки с творогом для объекта 2,
1.3. и далее в таком же порядке все непустые ярлыки шанежки с творогом для всех остальных объектов

2.1 Потом - все непустые ярлыки для следующего продукта (рогалик с изюмом) для объекта 1,
2.2. Затем - все непустые ярлыки рогалика с изюмом для объекта 2,
2.3 и далее в таком же порядке все непустые ярлыки рогалика с изюмом для всех остальных объектов

Благодарю!

Код текущего макроса:

Public Sub Печатать_непустые_ярлыки()
Application.EnableCancelKey = xlDisabled
Dim V As Range
Dim S&, R&, C&
S = Columns(1).Rows(65536).End(xlUp).Row
For R = 8 To S Step 15
    For C = 1 To 21
        If Cells(R, C).Value <> 0 Then
        If V Is Nothing Then Set V = Range(Cells(R - 7, C), Cells(R + 7, C)) Else Set V = Union(V, Range(Cells(R - 7, C), Cells(R + 7, C)))
        End If
    Next C
 If Not V Is Nothing Then V.PrintOut Copies:=1, Collate:=True: Set V = Nothing
Next R
Application.EnableCancelKey = xlEnabled
End Sub