Ayuda para modificar Código de eliminación de duplicados

Que tal foro, necesito ayuda para poder modificar un código

Sub Faltantes()
Hoja1.Activate
Application.ScreenUpdating = False
With Hoja1
 .Range("A10:C10").EntireColumn.Insert
 .Range("A11").Formula = "=D11&E11&F11&G11"
 .Range("B11").Formula = "=L11&M11&N11&O11"
 .Range("C11").Formula = "=COUNTIF(A$11:A$150,B11)"
 .Range("A11:C11").AutoFill Destination:=Range("A11:C150")
 .Range("$C$10:$G$150").AutoFilter Field:=1, Criteria1:="0"
 .Range("D11:G150").Copy Hoja2.Range("A11")
 .Range("C10").AutoFilter
 .Range("A1:C1").EntireColumn.Delete
 End With
 Application.ScreenUpdating = False
 Application.ScreenUpdating = False
 With Hoja1
 .Range("H10:J10").EntireColumn.Insert
 .Range("H11").Formula = "=D11&E11&F11&G11"
 .Range("I11").Formula = "=L11&M11&N11&O11"
 .Range("J11").Formula = "=COUNTIF(I$11:I$150,H11)"
 .Range("H11:J11").AutoFill Destination:=Range("H11:J150")
 .Range("$J$10:$O$150").AutoFilter Field:=1, Criteria1:="0"
 .Range("L11:O150").Copy Hoja2.Range("I11")
 .Range("J10").AutoFilter
 .Range("H1:J1").EntireColumn.Delete
 End With
Application.ScreenUpdating = False
End Sub

El código lo que hace es eliminar los duplicados de una columna "C" a la "K" y viceversa elimine los repetidos en "C de "K", pero no me elimina dos datos repetidos, y pienso que a la hora de actualizar los datos me genere este inconveniente, me ayudarían a mejorar el código, o a averiguar donde esta el problema del porque me lanza algunos que si se repiten.

De ante mano muchísimas gracias desde México saludos