7. Проект: макрос отчёта

Option Explicit

Sub ОтчётПродаж()
    Dim ws As Worksheet
    Dim r As Long, lastRow As Long, bigCount As Long
    Dim total As Double

    Set ws = Worksheets("Лист1")
    lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    Application.ScreenUpdating = False

    For r = 2 To lastRow
        ws.Cells(r, 4).Value = ws.Cells(r, 2).Value * ws.Cells(r, 3).Value
        If ws.Cells(r, 4).Value >= 100000 Then
            ws.Cells(r, 5).Value = "Крупная"
            bigCount = bigCount + 1
        Else
            ws.Cells(r, 5).Value = "Обычная"
        End If
        total = total + ws.Cells(r, 4).Value
    Next r

    ws.Range("H1").Value = total
    ws.Range("H2").Value = bigCount
    ws.Range("H3").Value = Application.WorksheetFunction.Max(ws.Range("D2:D" & lastRow))

    Application.ScreenUpdating = True
    MsgBox "Отчёт готов: " & lastRow - 1 & " строк"
End Sub