Sub Заявка()
    Dim lr&, i&, n&, sh As Worksheet, rep As Workbook
    Set sh = ThisWorkbook.Sheets(1)
    lr = Cells(Rows.Count, 2).End(xlUp).Row
    Set rep = Workbooks.Add(1)
    n = 2
    With rep.Sheets(1)
        .Cells(1, 1) = "Наименование"
        .Cells(1, 2) = "Количество"
        .Cells(1, 3) = "Цена"
        .Cells(1, 4) = "Сумма"
        For i = 4 To lr
            If sh.Cells(i, "i") <> 0 Then
                .Cells(n, 1) = sh.Cells(i, "b")
                .Cells(n, 2) = sh.Cells(i, "i")
                .Cells(n, 3) = sh.Cells(i, "c")
                .Cells(n, 4) = .Cells(n, 2) * .Cells(n, 3)
                n = n + 1
            End If
        Next i
        .Cells(n, 1) = "Итого:"
        .Cells(n, 2) = WorksheetFunction.Sum(.Cells(2, 2).Resize(n - 1))
        .Cells(n, 3) = WorksheetFunction.Sum(.Cells(2, 3).Resize(n - 1))
        .Cells(n, 4) = .Cells(n, 2) * .Cells(n, 3)
        With .Cells(1, 1).Resize(n, 4)
            .Borders(7).LineStyle = xlContinuous
            .Borders(8).LineStyle = xlContinuous
            .Borders(9).LineStyle = xlContinuous
            .Borders(10).LineStyle = xlContinuous
            .Borders(11).LineStyle = xlContinuous
            .Borders(12).LineStyle = xlContinuous
        End With
    End With
End Sub