Sub √руппировка_продуктов_за_мес€ц()
Dim id As String
Dim product As String
Dim mouth As String

Dim idCheck As String
Dim productCheck As String
Dim mouthCheck As String

Dim arrayId As Variant
Dim arrayProduct As Variant
Dim arrayMouth As Variant

SheetName = "list1"

lastRow = Sheets(SheetName).Cells(Rows.Count, "U").End(xlUp).Row

arrayId = Range("U2:U" & lastRow).Value
arrayProduct = Range("DU2:DU" & lastRow).Value
arrayMouth = Range("EI2:EI" & lastRow).Value

For i = 1 To lastRow - 1
    id = arrayId(i, 1)
    product = arrayProduct(i, 1)
    mouth = arrayMouth(i, 1)
    Sheets(SheetName).Cells(i + 1, "EJ").Value = 1

    For j = 1 To i - 1
        idCheck = arrayId(j, 1)
        productCheck = arrayProduct(j, 1)
        mouthCheck = arrayMouth(j, 1)
        If (id = idCheck AND product=productCheck AND mouth = nouthCheck) Then
            Sheets(SheetName).Cells(i + 1, "EJ").Value = 0
            Exit For
        End If
    Next

Next

End Sub