Cara fiz um código aqui e acredito que vai te ajudar
o código basicamente vai pinta de amarelo todos os números de documentos que são iguais e com o mesmo valor, ai no caso se quiser excluir as linha é só fazer um filtro e apagar tudo que está em amarelo, o que sobrar são os documentos que são iguais e que tem valores diferentes.
Sub teste()
Cells.Find(What:="documento", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
ActiveCell.Offset(1, 0).Select
'Acha todas as linhas com valor duplicado
Dim pro, val_pro, rec, val_rec, num
Do Until ActiveCell = 0
pro = ActiveCell
val_pro = ActiveCell.Offset(0, 2).Value
num = 1
rec = ActiveCell.Offset(num, 0)
Do Until pro = rec
If rec = "" Then
Exit Sub
End If
rec = ActiveCell.Offset(num, 0)
num = num + 1
Loop
num = num - 1
val_rec = ActiveCell.Offset(num, 2).Value
If val_rec = val_pro Then
With Selection.Interior
.Color = 65535
End With
ActiveCell.Offset(num, 0).Select
With Selection.Interior
.Color = 65535
End With
ActiveCell.Offset(-num, 0).Select
End If
ActiveCell.Offset(1, 0).Select
Loop
End Sub