Public Sub DeleteDuplicates()
    Dim rng As Range
    Dim ws As Worksheet
    Dim intI As Integer
    Dim intRows As Integer

    Set ws = ThisWorkbook.Worksheets("Лист1")
    Set rng = ws.UsedRange
      
    intRows = rng.Rows.Count
    intI =  1 
    
    Do While intI < intRows
        If ws.Cells(intI,  1 ) = ws.Cells(intI +  1 ,  1 ) And _
          ws.Cells(intI,  2 ) = ws.Cells(intI +  1 ,  2 ) Then
            ws.Cells(intI,  1 ).EntireRow.Delete shift:=xlShiftUp
            intRows = intRows -  1 
            intI = intI -  1 
        End If
        
        intI = intI +  1 
    Loop
End Sub