Below is a sub that will test for and delete duplicates. This process
is normally a bit easier to do if the data is sorted, but since your
example was clearly not sorted data, the following sub is designed to
work with unsorted data. This particular sub (based on your data)
assumes that cells A:D are the relevant cells. What the sub does, is
to concatenate these four cells for testing purposes. This sub assumes
that the range to be evaluated starts in cell A2 - modify accordingly.

Sub DeleteDuplicates()

Dim LastRow As Integer
Dim TestRow As Variant
Dim ReturnCell As Range

'   Go to start of data range, get last row number and set first
        return marker
    ActiveSheet.Range("A2").Select
    LastRow = ActiveCell.End(xlDown).Row
    Set ReturnCell = ActiveCell

'   Begin overall loop
    For Row = 2 To LastRow

'   Exit loop if next row is blank
    If ActiveCell.Offset(1, 0) = " " Then Exit Sub

'   Concatenate current row and capture address of ActiveCell
    TestRow = ActiveCell.Text & ActiveCell.Offset(0, 1).Text & _
        ActiveCell.Offset(0, 2).Text & ActiveCell.Offset(0, 3).Text

'   Move to next row to begin testing for duplicates
    ActiveCell.Offset(1, 0).Select

'   Loop through remaining rows and delete duplicates of current row
    For testrows = ActiveCell.Row To LastRow

'   Concatenate current row
    ThisRow = ActiveCell.Text & ActiveCell.Offset(0, 1).Text _
        & ActiveCell.Offset(0, 2).Text & ActiveCell.Offset(0, 3).Text

'   Compare value of current row against TestRow
'       and delete row if same
    If ThisRow = TestRow Then
        Selection.EntireRow.Delete Shift:=xlUp
        LastRow = LastRow - 1

'   If not equal, move to next row
        Else ActiveCell.Offset(1, 0).Select
    End If

    Next

'   Go back to ReturnCell, advance to next row, reset ReturnCell
    ReturnCell.Select
    ActiveCell.Offset(1, 0).Select
    Set ReturnCell = ActiveCell

    Next

End Sub

=========================================================================== ======1