Sub МакросДублей()
    
    Sheets.Add(after:=Sheets(1)).Name = "Лист_дублей"
    Sheets(1).Select

    Dim lLastRow As Long, lLastCol As Long, i As Long, j As Long, k As Long, _
        arrayTable() As Variant, arrayTemp() As Variant
    
    lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
    lLastCol = Cells(1, Columns.Count).End(xlToLeft).Column + 1
    
    Cells(1, lLastCol) = "№ п/п"
    Cells(2, lLastCol) = 1
    Cells(3, lLastCol) = 2
    Range(Cells(2, lLastCol), Cells(3, lLastCol)).AutoFill _
        Destination:=Range(Cells(2, lLastCol), Cells(lLastRow, lLastCol))
    Range(Cells(2, 1), Cells(lLastRow, lLastCol)).Sort _
        key1:=Range("G2:G" & lLastRow), order1:=xlAscending, Header:=xlNo
        
    arrayTable = Range(Cells(1, 1), Cells(lLastRow + 1, lLastCol)).Value
    ReDim arrayTemp(0 To lLastRow - 1, 1 To lLastCol)
    
    k = 1
    For i = 1 To lLastRow Step 1
        If arrayTable(i, 7) = arrayTable(i + 1, 7) _
            Or arrayTable(i, 7) = arrayTemp(k - 1, 7) _
        Then
            For j = 1 To lLastCol Step 1
                arrayTemp(k, j) = arrayTable(i, j)
            Next j
            k = k + 1
        End If
    Next i
    
    Sheets("Лист_дублей").Range("A1").Resize(k, lLastCol) = arrayTemp
    Range(Cells(1, 1), Cells(1, lLastCol)).Copy Sheets("Лист_дублей").Range("A1")
    Sheets("Лист_дублей").Range("G1").ColumnWidth = 12
    
    Range(Cells(2, 1), Cells(lLastRow, lLastCol)).Sort _
        key1:=Range(Cells(2, lLastCol), Cells(lLastRow, lLastCol)), _
        order1:=xlAscending, Header:=xlNo
    Range(Cells(1, lLastCol), Cells(lLastRow, lLastCol)).ClearContents
    
    Sheets("Лист_дублей").Select
End Sub

Function isGregorianDate(data As String) As Boolean
 
    'Проверка, соответствует ли дата формату ДД.ММ.ГГГГ
    If Not data Like "##.##.####" Then
        isGregorianDate = False
        Exit Function
    End If
 
    Dim d As String, m As String, y As String
    d = Left(data, 2)   'день
    m = Mid(data, 4, 2) 'месяц
    y = Mid(data, 7, 4) 'год
     
    If (d = 0 Or m = 0 Or m > 12 Or y = 0 _
        Or ((m = 1 Or m = 3 Or m = 5 Or m = 7 Or m = 8 Or m = 10 Or m = 12) And d > 31) _
        Or ((m = 4 Or m = 6 Or m = 9 Or m = 11) And d > 30) _
        Or (m = 2 And Not (d < 29 Or (d < 30 And y Mod 4 = 0 _
                And (y < 1582 Or y Mod 100 <> 0 Or y Mod 400 = 0))))) _
    Then
        isGregorianDate = False
        Exit Function
    End If
     
    isGregorianDate = True
     
End Function

Sub RangeToPicture()
    If TypeName(Selection) <> "Range" Then
        MsgBox "Выделенная область не является диапазоном."
        Exit Sub
    End If
    Dim imgName As String, wsTmpSh As Worksheet
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    With Selection
        .CopyPicture
        Set wsTmpSh = ThisWorkbook.Sheets.Add
        imgName = "Range_" & Format(Now(), "yyyymmdd") & Replace(Timer, ",", "")
        With wsTmpSh.ChartObjects.Add(0, 0, .Width, .Height).Chart
            .ChartArea.Border.LineStyle = 0
            .Parent.Select
            .Paste
            .Export Filename:=ActiveWorkbook.Path & "\" & imgName & ".png", FilterName:="PNG"
            .Parent.Delete
        End With
    End With
    wsTmpSh.Delete
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True
End Sub

'Булевая функция для проверки, является ли строка датой
' в формате ДД.ММ.ГГГГ по григорианскому календарю
Function isGregorianDate(data As String) As Boolean

    'Проверка, соответствует ли дата формату ДД.ММ.ГГГГ
    If Not data Like "##.##.####" Then
        isGregorianDate = False
        Exit Function
    End If

    Dim d As String, m As String, y As String
    d = Left(data, 2)   'день
    m = Mid(data, 4, 2) 'месяц
    y = Mid(data, 7, 4) 'год
    
    'Проверка, корректная ли дата по григорианскому календарю.
    ' До 1582 г. все года н.э., делящиеся на 4, считаются високосными,
    ' после только те года, которые делятся на 4 и не деляться на 100 или делятся на 400;
    ' если нужно учитывать високосные года до принятия григорианского календаря в России в 1918 г.,
    ' то замените в коде 1582 в "y < 1582" на 1918.
    ' https://ru.wikipedia.org/wiki/Високосный_год#Григорианский_календарь
    If (d = 0 Or m = 0 Or m > 12 Or y = 0 _
        Or ((m = 1 Or m = 3 Or m = 5 Or m = 7 Or m = 8 Or m = 10 Or m = 12) And d > 31) _
        Or ((m = 4 Or m = 6 Or m = 9 Or m = 11) And d > 30) _
        Or (m = 2 And Not (d < 29 Or (d < 30 And y Mod 4 = 0 _
                And (y < 1582 Or y Mod 100 <> 0 Or y Mod 400 = 0))))) _
    Then
        isGregorianDate = False
        Exit Function
    End If
    
    isGregorianDate = True
    
End Function

=ЕСЛИ(СУММЕСЛИ($B$2:$B$8;B11;$F$2:$F$8)>0;F11+СУММЕСЛИ($B$2:$B$8;B11;$F$2:$F$8);"")