g + 1Subfillrg4 () crg, cpr1, cr, cdol As Integer=10Sheets («Ан4»). Cells (cr, 1) <> «Загальний підсумок»=cr + 1=2Sheets («Ан4»). Cells (9, cpr1) <> «Підсумок Кількість»=cpr1 + 1=1=7Sheets («Ан4»). Cells (9, crg) <> «Підсумок Кількість» Sheets («Ан4»). Cells (10, crg)=«Кількість» Then («Долякл»). Cells (cdol, 7)=Sheets («Ан4»). Cells (9, crg) («Долякл»). Cells (cdol, 8)=Sheets («Ан4») . Cells (cr, crg) / Sheets («Ан4»). Cells (cr, cpr1)=cdol + 1If=crg + 1Subfillrg (). Sheets («Долякл»). Activate
End Sub
П15
П16
