Удаление обеих дублей

   With FP1.Sheets(1)
      iLastRow1 = .Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).Row
      iLastCol = .UsedRange.Columns(.UsedRange.Columns.Count).Column + 1
      For i = 2 To iLastRow1  ' создать составной ключ в дополнительной колонке справа (к iLastCol уже заранее прибавлена 1)
         .Cells(i, iLastCol) = .Cells(i, "A") & "|" & .Cells(i, "B")
      Next
 
      Set ws = FP1.Sheets(1)  ' отсортировать по ключу
      With ws
         With .Sort
            .SortFields.Clear
            .SortFields.Add Key:=ws.Range(ws.Cells(2, iLastCol), ws.Cells(iLastRow1, iLastCol)), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
            .SetRange ws.Range(ws.Cells(2, "A"), ws.Cells(iLastRow1, iLastCol))
            .Header = xlNo
            .MatchCase = False
            .Orientation = xlTopToBottom
            .SortMethod = xlPinYin
            .Apply
         End With
      
         strS = .Cells(iLastRow1, iLastCol)  ' ключ
         For i = iLastRow1 - 1 To 2 Step -1  ' от конца к началу:
            If .Cells(i, iLastCol) = strS Then  ' если текущая запись совпадает с ключом, то это дубль
               .Cells(i, iLastCol) = "//\\"     ' пометить на удаление текущую и нижележащую
               .Cells(i + 1, iLastCol) = "//\\"
            Else
               strS = .Cells(i, iLastCol)    ' новый ключ
            End If
         Next
         For i = iLastRow1 To 2 Step -1      ' от конца к началу:
            If .Cells(i, iLastCol) = "//\\" Then .Rows(i).Delete  ' удалить помеченные
         Next
      End With
      Set ws = Nothing
   End With
   
   FP1.Sheets(1).Columns(iLastCol).Delete    ' удалить колонку составного ключа
 
   FP1.SaveAs Filename:=FN3, Local:=True     ' сохранить файл