Filtering Duplicates between 2 columns and removing rows

[Watchdawg]

Hopefully I can explain this properly. I need to gather data from a report which populates an excel spreadsheet.
As you can see in the example, there are 2 employees (the names are always bunched together), I need to remove any duplicate times by employee as shown in my example. Once that's complete, I need to remove any rows that contain a blank cell in both D and E side by side (both must be blank).

 

[kevin9999]

Please try the following on a copy of your workbook:

Option Explicit
    Sub ScrubDub()
    Application.ScreenUpdating = False
    Dim ws As Worksheet, a, i As Long
    Set ws = Worksheets("Sheet1")       '<-- *** Change to actual sheet name ***
    a = ws.Range("A1", ws.Cells(Rows.Count, "E").End(xlUp))
    
    For i = 1 To UBound(a, 1) - 1
        If a(i, 5) = a(i + 1, 4) And a(i, 2) = a(i + 1, 2) Then
        a(i, 5) = "": a(i + 1, 4) = ""
        End If
    Next i
    ws.Range("A1").Resize(UBound(a, 1), UBound(a, 2)).Value = a
    
    For i = UBound(a, 1) To 1 Step -1
        If a(i, 4) = "" And a(i, 5) = "" Then ws.Rows(i).Delete
    Next i
    Application.ScreenUpdating = True
End Sub