@Shinzuriki

coba :

Sub tes()
Dim arr() As Variant
Dim rng As Range, sel As Range, x As Long
x = Range("E" & Rows.Count).End(xlUp).Row
Set rng = Range("E7:E" & x)
ReDim arr(x)

    For Each sel In rng
        arr(sel.Row) = sel.Value & sel.Offset(0, 1).Value
    Next

    For i = UBound(arr) To LBound(arr) Step -1
        n = Application.Count(Application.Match(arr, Array(arr(i)), 0))
        If n > 1 Then
            Range("E" & i & ":G" & i).Delete (xlShiftUp)
        End If
    Next

Range("E7:G" & x).Borders.LineStyle = xlContinuous
End Sub

@Shinzuriki itu untuk mencari baris terakhir berdasarkan kolom E