Sub itog()
    Dim i&, z(), t$, i1&
    i1 = Sheets("Учёт").Range("A5").End(xlDown).Row
    z = Sheets("Учёт").Range("B5:H" & i1).Value
  With CreateObject("Scripting.dictionary"): .Comparemode = 1
        For i = 1 To UBound(z)
        t = z(i, 1) & z(i, 2) & z(i, 3) & z(i, 4)
           If .exists(t) = False Then
            m = m + 1: .Item(t) = m: For j = 1 To 7: z(m, j) = z(i, j): Next
           Else
            z(.Item(t), 6) = z(.Item(t), 6) + z(i, 6)
           z(.Item(t), 7) = z(.Item(t), 7) + z(i, 7)
           End If
        Next
    
           Sheets("Лист1").Range("A5").Resize(.Count, 7) = z
   End With
         With Sheets("Лист1")
           .Range("H1").Formula = "=NOW()"
           .Range("H1").Value = .Range("H1").Value
        End With
End Sub

Sub itog1()
    Dim i%, j%, k%, z(), t$, i1&
    i1 = Sheets("Учёт").Range("A5").End(xlDown).Row
    z = Sheets("Учёт").Range("B5:H" & i1).Value
  With CreateObject("Scripting.dictionary"): .Comparemode = 1
        For i = 1 To UBound(z)
        t = z(i, 1) & z(i, 2) & z(i, 3) & z(i, 4)
           If .exists(t) = False Then
            m = m + 1: .Item(t) = m: For j = 1 To UBound(z, 2): z(m, j) = z(i, j): Next
           Else
           For k = 6 To 7: z(.Item(t), k) = z(.Item(t), k) + z(i, k): Next
           End If
        Next
           Sheets("Лист1").Range("A5").Resize(.Count, UBound(z, 2)) = z
   End With
         With Sheets("Лист1")
           .Range("H1").Formula = "=NOW()"
           .Range("H1").Value = .Range("H1").Value
        End With
End Sub

Sub CreatePivotTable1()
Dim PTCache As PivotCache
Dim PT As PivotTable, i As Integer
On Error Resume Next
Application.DisplayAlerts = False
Sheets("сводная_таблица1").Delete
On Error GoTo 0
i = Sheets("Учёт").Range("A5").End(xlDown).Row
Set PTCache = ActiveWorkbook.PivotCaches.Create( _
SourceType:=xlDatabase, _
SourceData:="Учёт!B4:H" & i)
Worksheets.Add
ActiveSheet.Name = "сводная_таблица1"
Set PT = ActiveSheet.PivotTables.Add(PivotCache:=PTCache, _
TableDestination:=Range("A3"))
PT.ManualUpdate = True
PT.AddFields RowFields:=Array("Материал", "Маркировка", "Диаметр (мм)", "№ партии", "Ед. измерения")
With PT.PivotFields("Приход")
.Orientation = xlDataField
.Function = xlSum
.Position = 1
.NumberFormat = "# ##0"
End With
With PT.PivotFields("Расход")
.Orientation = xlDataField
.Function = xlSum
.Position = 2
.NumberFormat = "# ##0"
End With
PT.CalculatedFields.Add Name:="Остаток", _
Formula:="=Приход-Расход"
With PT.PivotFields("Остаток")
.Orientation = xlDataField
.Function = xlSum
.Position = 3
.NumberFormat = "# ##0"
.Caption = "Остаток "
End With
ActiveWorkbook.ShowPivotTableFieldList = False
With PT
        .RowAxisLayout xlTabularRow
        .NullString = "0"
        .RepeatAllLabels xlRepeatLabels
        .ShowTableStyleRowStripes = True
        .TableStyle2 = "PivotStyle2 = PivotStyleMedium10"
        .ManualUpdate = False
        .ManualUpdate = True
End With
   Application.ScreenUpdating = True
End Sub