Slet dubletter igen

Hej

Jeg har et ark hvor der er en del dubletter, men jeg bliver nødt til at sikre mig at alle kolonner fra A til I er ens inden jeg sletter, alle data er sorteret så dubletterne står lige under hinanden, jeg har fundet denne makro her inde den er lavet af kabbak og er i mine øjne genial :-)

Kan den rettes til så den kan løse min opgave?

den første makerer dubletter røde

Public Sub MakerDubletterRøde()
col = ActiveCell.Column
Rowcount = Cells(65536, col).End(xlUp).Row
Range(Cells(1, col), Cells(65536, col).End(xlUp)).Select
For I = 1 To Rowcount
If Cells(I, col).Interior.ColorIndex <> 3 Or Cells(I, col) <> "" Then
For I1 = I + 1 To Rowcount
If Cells(I, col) = Cells(I1, col) Then
Cells(I1, col).Interior.ColorIndex = 3
End If
Next
End If
Next
End Sub

denne køres efter at du har tjekket om det er ok, så slettes de.
Public Sub FjernDubletterRøde()
col = ActiveCell.Column
Rowcount = Cells(65536, col).End(xlUp).Row
Range(Cells(1, col), Cells(65536, col).End(xlUp)).Select
For I = 1 To Rowcount
If Cells(I, col).Interior.ColorIndex = 3 Then
Cells(I, col).EntireRow.Delete Shift:=xlUp
I = I - 1
Rowcount = Rowcount - 1
End If
Next
End Sub