Duda sobre modificar una macro que busca repetidos

Hola mi duda es tengo una macro que busca repetidos y las colorea y ya no las busca pero quisiera modificarla o si alguien me ayudara como para que haga lo siguiente

ejemplo

en la celda A1 tengo un dato 5530 y en la K1 cantidad en la L1 surtido y en la M1 por surtir

quisiera que la formula ya que en el dia al no tener acceso ala base de datos tengo que copiar y pegar la misma información pero cambian los datos L1 y M1 y lo que quiero es que la macro busque la repetida de A1 y borre las anteriores basándose en L1 qe es la cantidad que siempre varia y se va acercando ala cantidad de K1

no se si me di a entender les pongo la macro saludos

Sub Color()
Dim iListCount As Integer
Dim iCtr As Integer
Application.ScreenUpdating = False
iListCount = Sheets("hoja1").Range("A65536").End(xlUp).Row
Sheets("hoja1").Range("A1").Select
h = 1
Do Until ActiveCell = ""
For x = 1 To iListCount
For iCtr = h To iListCount
If ActiveCell.Row <> Sheets("hoja1").Cells(iCtr, 1).Row Then
If ActiveCell.Value = Sheets("hoja1").Cells(iCtr, 1).Value Then
Sheets("hoja1").Cells(iCtr, 1).Interior.ColorIndex = 6
Sheets("hoja1").Cells(iCtr, 1).Interior.Pattern = xlSolid
iCtr = iCtr + 1
End If
End If
Next iCtr
ActiveCell.Offset(1, 0).Select
h = h + 1
Next x
Loop
Application.ScreenUpdating = True
MsgBox "Done Dude!"
End Sub