Sub RemoveDuplicatesAndSummarize()
    Dim sourceSheet As Worksheet
    Dim newSheet As Worksheet
    Dim lastRow As Long
    Dim newRow As Long
    Dim dict As Object
    Dim dictKey As Variant
    Dim rng As Range
    Dim i As Long
    
    ' Создаем новый лист для результатов
    Set newSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    newSheet.Name = "NoDuplicates"
    
    ' Указываем исходный лист
    Set sourceSheet = ThisWorkbook.Sheets("Исходный_лист") ' Замените на имя вашего листа
    
    ' Определяем последнюю заполненную строку в столбце A исходного листа
    lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row
    
    ' Инициализируем словарь для хранения сумм статистики по ключу
    Set dict = CreateObject("Scripting.Dictionary")
    
    ' Проходимся по каждой строке исходного листа
    For i = 2 To lastRow ' Предполагаем, что заголовки находятся в строке 1
        ' Формируем ключ на основе значений в столбцах F и I
        dictKey = sourceSheet.Cells(i, "F").Value & "|" & sourceSheet.Cells(i, "I").Value
        
        ' Проверяем, есть ли ключ уже в словаре
        If dict.Exists(dictKey) Then
            ' Если ключ уже есть, то суммируем статистику
            For Each rng In newSheet.Range("J1:X1")
                newSheet.Cells(dict(dictKey), rng.Column).Value = newSheet.Cells(dict(dictKey), rng.Column).Value + sourceSheet.Cells(i, rng.Column).Value
            Next rng
        Else
            ' Если ключа еще нет, то добавляем его в словарь и запоминаем строку для статистики
            newRow = newRow + 1
            dict(dictKey) = newRow
            newSheet.Cells(newRow, "A").Value = sourceSheet.Cells(i, "A").Value
            newSheet.Cells(newRow, "B").Value = sourceSheet.Cells(i, "B").Value
            For Each rng In sourceSheet.Range("C" & i & ":I" & i)
                newSheet.Cells(newRow, rng.Column - 1).Value = rng.Value
            Next rng
            For Each rng In newSheet.Range("J1:X1")
                newSheet.Cells(newRow, rng.Column).Value = sourceSheet.Cells(i, rng.Column).Value
            Next rng
        End If
    Next i
    
    ' Вставляем заголовки в новый лист
    newSheet.Range("A1").Resize(1, 24).Value = sourceSheet.Range("A1:X1").Value
End Sub


newSheet.Cells(newRow, rng.Column - 1).Value = rng.Value

Option Explicit

Sub RemoveDuplicatesAndSummarize()
    Dim rng         As Range
    Dim i           As Long

    ' Создаем новый лист для результатов
    Dim newSheet    As Worksheet: Set newSheet = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    newSheet.Name = "NoDuplicates"

    ' Указываем исходный лист
    Dim sourceSheet As Worksheet: Set sourceSheet = ThisWorkbook.Sheets("Start")

    ' Определяем последнюю заполненную строку в столбце A исходного листа
    Dim lastRow     As Long: lastRow = sourceSheet.Cells(sourceSheet.Rows.Count, "A").End(xlUp).Row

    ' Инициализируем словарь для хранения сумм статистики по ключу
    Dim dict        As Object: Set dict = CreateObject("Scripting.Dictionary")

    ' Проходимся по каждой строке исходного листа
    For i = 2 To lastRow    ' Предполагаем, что заголовки находятся в строке 1

        ' Формируем ключ на основе значений в столбцах F и I
        Dim dictKey As Variant: dictKey = sourceSheet.Cells(i, "F").Value & "|" & sourceSheet.Cells(i, "I").Value

        ' Проверяем, есть ли ключ уже в словаре
        If dict.Exists(dictKey) Then

            ' Если ключ уже есть, то суммируем статистику из исходного листа
            For Each rng In sourceSheet.Range("J" & i & ":X" & i)
                newSheet.Cells(dict(dictKey), rng.Column).Value = newSheet.Cells(dict(dictKey), rng.Column).Value + rng.Value
            Next rng

        Else

            ' Если ключа еще нет, то добавляем его в словарь и запоминаем строку для статистики
            Dim newRow As Long: newRow = newRow + 1
            dict(dictKey) = newRow
            newSheet.Cells(newRow, "A").Value = sourceSheet.Cells(i, "A").Value
            newSheet.Cells(newRow, "B").Value = sourceSheet.Cells(i, "B").Value

            For Each rng In sourceSheet.Range("C" & i & ":I" & i)
                newSheet.Cells(newRow, rng.Column).Value = rng.Value
            Next rng

            For Each rng In sourceSheet.Range("J" & i & ":X" & i)
                newSheet.Cells(newRow, rng.Column).Value = rng.Value
            Next rng

        End If

    Next i

    ' Вставляем заголовки в новый лист
    newSheet.Rows("1:1").Insert Shift:=xlDown
    newSheet.Range("A1").Resize(1, 24).Value = sourceSheet.Range("A1:X1").Value
End Sub