Delete Duplicate Rows depend on creteria on Col A and Col B

Sub test()
    Dim a, i As Long, ub As Long, dic As Object, w, txt As String, x As Range
    Set dic = CreateObject("Scripting.Dictionary")
    dic.CompareMode = 1
    a = Sheets("dept hours").Cells(1).CurrentRegion.Value
    ReDim Preserve a(1 To UBound(a, 1), 1 To UBound(a, 2) + 1)
    For i = 1 To UBound(a, 1)
        txt = Trim$(a(i, 1))
        If Not dic.exists(txt) Then
            dic(txt) = VBA.Array(a(i, 1), a(i, 2))
        Else
            w = dic(txt): w(1) = w(1) + a(i, 2): dic(txt) = w
        End If
    Next
    With Sheets("time clock").Cells(1).CurrentRegion
        .Parent.Cells.Font.ColorIndex = xlAutomatic
        .Parent.Cells.Font.Bold = False
        .Columns(.Columns.Count + 1).Resize(, .Columns.Count + 3).ClearContents
        ub = .Rows.Count + 1
        a = .Resize(.Rows.Count + dic.Count, .Columns.Count + 3).Value
        For i = 1 To UBound(a, 1)
            txt = Trim$(Replace(a(i, 1), ",", ""))
            If dic.exists(txt) Then
                a(i, UBound(a, 2) - 1) = dic(txt)(0)
                a(i, UBound(a, 2)) = dic(txt)(1)
                dic.Remove txt
                If a(i, 2) <> a(i, UBound(a, 2)) Then
                    If x Is Nothing Then
                        Set x = Union(.Rows(i), .Rows(i).Offset(, 3))
                    Else
                        Set x = Union(x, Union(.Rows(i), .Rows(i).Offset(, 3)))
                    End If
                End If
            End If
        Next
        For i = 0 To dic.Count - 1
            a(ub + i, UBound(a, 2) - 1) = dic.items()(i)(0)
            a(ub + i, UBound(a, 2)) = dic.items()(i)(1)
        Next
        With .Resize(UBound(a, 1), UBound(a, 2))
            .Parent.AutoFilterMode = False
            .Value = a
            If Not x Is Nothing Then x.Font.Color = vbRed: x.Font.Bold = True
            .AutoFilter
            .Parent.AutoFilter.Sort.SortFields.Clear
            .Parent.AutoFilter.Sort.SortFields.Add(.Columns(1), _
            xlSortOnFontColor, 1).SortOnValue.Color = RGB(255, 0, 0)
            With .Parent.AutoFilter.Sort
                .Header = xlYes
                .Apply
            End With
            .AutoFilter
        End With
        .Parent.Cells.Columns.AutoFit
    End With
End Sub