Sub ОТЧЕТИК()
Dim iLastRow As Long
Dim x As Integer
iLastRow = Cells(Rows.Count, 3).End(xlUp).Row

Range("A2").Value = Range("B1").Value
Rows(1).ClearContents
Range(Cells(2, 9), Cells(iLastRow, 9)).FormulaLocal = "=D2*E2"
For i = 2 To iLastRow
Cells(i, 7) = Round(Cells(i, 9) / 1.1, 2)
Next
Range(Cells(2, 8), Cells(iLastRow, 8)).FormulaLocal = "=ОКРУГЛ(I2-G2;2)"

For i = 2 To iLastRow
Cells(i, 7) = Round(Cells(i, 9) / 1.18, 2)
If Cells(i, 3) = "НДС 10%" Then
Cells(i, 3).Font.Bold = True
Cells(iLastRow + 1, 10) = WorksheetFunction.Sum(Range(Cells(2, 9), Cells(iLastRow, 9)))
Cells(iLastRow + 1, 11) = WorksheetFunction.Sum(Range(Cells(2, 8), Cells(iLastRow, 8)))
Exit Sub
End If
Next

End Sub

Sub ОТЧЕТИК3()
Dim iLastRow As Long
Dim z As Integer
Sheets("Лист1").Cells.ClearContents
Sheets("Лист1").Cells.Font.Bold = False
Sheets("Лист1").Cells(1, 2).Resize(41, 6).Value = Selection.Resize(41, 6).Value
Sheets("Лист1").Select
Range("D:D,F:F").Delete
iLastRow = Cells(Rows.Count, 3).End(xlUp).Row

For i = 1 To iLastRow

If Cells(i, 4) = "" And Cells(i, 3) <> "НДС 10%" Then
If i = z + 1 Then
Call ОТЧЕТИК
Exit Sub

End If
Rows(i).Delete
i = i - 1
End If
iLastRow = Cells(Rows.Count, 3).End(xlUp).Row
z = iLastRow

Next

End Sub