=СУММПРОИЗВ(ЕЧИСЛО(НАЙТИ([@Товар];ВсеТранзакцииСДержателями[Товар])+НАЙТИ([@Процессинг];ВсеТранзакцииСДержателями[Процессинг]))*ПРОМЕЖУТОЧНЫЕ.ИТОГИ(9;СМЕЩ(ВсеТранзакцииСДержателями[[#Заголовки];[Сумма]];СТРОКА(ВсеТран[SIZE=18pt][/SIZE]закцииСДержателями[Количество])-СТРОКА(ВсеТранзакцииСДержателями[#Заголовки]);)))/2

    Cells.Replace What:="Информация за указанный период", Replacement:= _
        "=""Расход топлива за "" &  ТЕКСТ(ДАТАМЕС(0;$L$7);""ММММ"") & ""   "" & $L$9 & "" г.""" _
        , LookAt:=xlPart, SearchOrder:=xlByColumns, MatchCase:=False, _
        SearchFormat:=False, ReplaceFormat:=False

Sub Create_NewModule()
    Dim objVBProj As Object, objVBComp As Object, objCodeMod As Object
    Dim sModuleName As String, sFullName As String
    Dim sProcLines As String
    Dim lLineNum As Long
 
    'добавляем новый стандартный модуль в активную книгу
    Set objVBComp = ActiveWorkbook.VBProject.VBComponents.Add(1)
    'получаем ссылку на коды модуля
    Set objCodeMod = objVBComp.CodeModule
    'узнаем количество строк в модуле
    '(т.к. VBA в зависимости от настроек может добавлять строки деклараций)
    lLineNum = objCodeMod.CountOfLines + 1
    'текст всставляемой процедуры
    sProcLines = "Sub Test()" & vbCrLf & _
        "    MsgBox ""Hello, World""" & vbCrLf & _
        "End Sub"[SIZE=36pt][/SIZE]
    'вставляем текст процедуры в тело нового модуля
    objCodeMod.InsertLines lLineNum, sProcLines
End Sub

="с " & ТЕКСТ(МИН(_2_Основная_информация[Дата транзакции];1);"ДД.ММ.ГГГГ") & " по " & ТЕКСТ(МАКС(_2_Основная_информация[Дата транзакции];1);"ДД.ММ.ГГГГ")

="с " & ТЕКСТ(НАИМЕНЬШИЙ(_2_Основная_информация[Дата транзакции];1);"ДД.ММ.ГГГГ") & " по " & ТЕКСТ(НАИБОЛЬШИЙ(_2_Основная_информация[Дата транзакции];1);"ДД.ММ.ГГГГ")

=ТЕКСТ(НАИМЕНЬШИЙ(_2_Основная_информация[Дата транзакции];1);"ДД.ММ.ГГГГ")

Sub qwe()ПроцентУвеличенияЦены = 8
[Cells(24, 9).address & ":" & Cells(60, 9).address] = _
[Cells(24, 9).address & ":" & Cells(60, 9).address / 100 * (100 + ПроцентУвеличенияЦены)]
End Sub
 

Sub qwe()
ПроцентУвеличенияЦены = 8
  
  MsgBox Cells(24, 9).Address
[Replace(Cells(24, 9).address, "$", "") & ":" & replace(Cells(60, 9).address, "$", "") ] = _
[replaceCells(24, 9).address, "$", "") & ":" & replace(Cells(60, 9).address, "$", "") / 100 * (100 + ПроцентУвеличенияЦены)]
End Sub

Sub qwe()
ПроцентУвеличенияЦены = 8

Range(Cells(24, 9) & ":" & Cells(60, 9)) = _
Range(Cells(24, 9) & ":" & Cells(60, 9)s) / 100 * (100 + ПроцентУвеличенияЦены)
    
End Sub

Sub ВидыТопливаЛитрыСредняяЦена()
  
 Sheets("ГПН").Select
  
'===============Создаем словарь===========
Dim dic
Set dic = CreateObject("Scripting.Dictionary") 'создаем словарь

   dic.CompareMode = TextCompare ' текстовый режим - игнорирует регистр
    
    
For i = 2 To Cells(Rows.Count, 3).End(xlUp).row 'цикл с ДВАДЦАТОЙ строки листа до последней заполненной
    If Range("B" & i) <> "" Then
            k = Range("D" & i) 'создаем ключ для словаря сцепкой ячеек. Все ключи в словаре уникальны
            it = Range("E" & i) 'значение по ключу, в примере - количество
                        If dic.Exists(k) Then 'проверяем, есть ли уже такой ключ в словаре
                          dic.item(k) = dic.item(k) + it 'если есть, суммируем колличество с тем, что уже было ранее
                        Else
                          dic.Add k, it 'если нет, делаем в словаре новую запись
                        End If
    End If
Next
  
Rows("1:" & dic.Count + 7).Insert 'вставляем сверху строки

СтрокаВыгрузки = 1 'строка формирования заголовка и первая строка для выгрузки данных
Range("A" & СтрокаВыгрузки) = "Вид топлива"
Range("B" & СтрокаВыгрузки) = "Кол-во л."

i = СтрокаВыгрузки + 1 'с этой строки будем выгружать данные из словаря
For Each ky In dic.keys 'цикл переборки всех записанных ключей
    ar = ky 'разделяем сцепку обратно, получаем два элемента
    Range("A" & i) = ar 'записываем эти элементы в ячейки
    Range("B" & i) = dic.item(ky) 'записываем в ячейку количество

    i = i + 1 'переходим к следующей строке
     
    k = 1
    k = k + 1
 
Next

'Сортировка полученных значений

    Range("A" & СтрокаВыгрузки & ":B" & dic.Count + 1).Select
 
    ActiveWorkbook.Worksheets("ГПН").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ГПН").Sort.SortFields.Add key:=Range("A" & СтрокаВыгрузки + 1 & ":A" & dic.Count + 1), _
        SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
        "Аи-92,Аи-95,G-95,ДТ,G-Drive 100,СУГ", DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("ГПН").Sort
        .SetRange Range("A" & СтрокаВыгрузки & ":B" & dic.Count + 1)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

    ThisWorkbook.ActiveSheet.Sort.SortFields.Clear

dic.RemoveAll ' удаляем словарь
End Sub

Sub ВидыТопливаЛитрыСредняяЦена()
  
 Sheets("ГПН").Select
'===============Создаем словарь===========
Dim dic
Set dic = CreateObject("Scripting.Dictionary") 'создаем словарь

   dic.CompareMode = TextCompare ' текстовый режим - игнорирует регистр
    
    
For i = 2 To Cells(Rows.Count, 3).End(xlUp).row 'цикл с ДВАДЦАТОЙ строки листа до последней заполненной
    If Range("B" & i) <> "" Then
            k = Range("D" & i) 'создаем ключ для словаря сцепкой ячеек. Все ключи в словаре уникальны
            it = Range("E" & i) 'значение по ключу, в примере - количество
                        If dic.Exists(k) Then 'проверяем, есть ли уже такой ключ в словаре
                          dic.item(k) = dic.item(k) + it 'если есть, суммируем колличество с тем, что уже было ранее
                        Else
                          dic.Add k, it 'если нет, делаем в словаре новую запись
                        End If
    End If
Next
  
Rows("1:" & dic.Count + 7).Insert 'вставляем сверху строки

СтрокаВыгрузки = 1 'строка формирования заголовка и первая строка для выгрузки данных
Range("A" & СтрокаВыгрузки) = "Вид топлива"
Range("B" & СтрокаВыгрузки) = "Кол-во л."

i = СтрокаВыгрузки + 1 'с этой строки будем выгружать данные из словаря
For Each ky In dic.keys 'цикл переборки всех записанных ключей
    ar = ky 'разделяем сцепку обратно, получаем два элемента
    Range("A" & i) = ar 'записываем эти элементы в ячейки
    Range("B" & i) = dic.item(ky) 'записываем в ячейку количество
 
    i = i + 1 'переходим к следующей строке
     
    k = 1
    k = k + 1
 
Next
'Сортировка полученных значений
    Range("A" & СтрокаВыгрузки & ":B" & dic.Count + 1).Select
 
    ActiveWorkbook.Worksheets("ГПН").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("ГПН").Sort.SortFields.Add key:=Range("A" & СтрокаВыгрузки + 1 & ":A" & dic.Count + 1), _
        SortOn:=xlSortOnValues, Order:=xlAscending, CustomOrder:= _
        "Аи-92,Аи-95,G-95,ДТ,G-Drive 100,СУГ", DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("ГПН").Sort
        .SetRange Range("A" & СтрокаВыгрузки & ":B" & dic.Count + 1)
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

    ThisWorkbook.ActiveSheet.Sort.SortFields.Clear

dic.RemoveAll ' удаляем словарь
End Sub