Sub es()
Dim m As Object, t(), t1(), i As Long, c As Byte, z
Application.ScreenUpdating = 0
Range("a11:h" & Cells.Find("*", , , , , xlPrevious).Row).Sort _
Key1:=Range("a11"), Order1:=xlDescending, Header:=xlGuess
Set m = CreateObject("Scripting.Dictionary")
t = Range("a11:h" & Cells(Rows.Count, 1).End(3).Row)
ReDim t1(1 To UBound(t), 1 To 8)
For i = 1 To UBound(t)
z = t(i, 4) & t(i, 8)
If Not m.Exists(z) Then
m.Add z, z
x = x + 1
For c = 1 To 8: t1(x, c) = t(i, c): Next c
End If
Next i
Range("a11:h10000").ClearContents
Range("a11").Resize(x, 8) = t1
Erase t, t1: Set m = Nothing
End Sub