Excel - Eliminar registro duplicados por macro

'//Use reference: Microsoft ActiveX Data Objects 2.0 Library

Public Sub reg_repetidos()

Dim con As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim rs2 As New ADODB.Recordset

Dim sSql$

con.Open "Provider=Microsoft.ACE.OLEDB.12.0;" & _

         "Data Source=" & ActiveWorkbook.FullName & ";" & _

         "Extended Properties=Excel 12.0"

sSql = "SELECT fecha, id_lote, COUNT(*) AS total " & _

       "FROM [Hoja1$] " & _

       "GROUP BY fecha, id_lote " & _

       "HAVING COUNT(*) > 1"

rs.Open sSql, con, adOpenStatic

Hoja2.Cells.Clear

Hoja2.Range("B2").CopyFromRecordset rs

rs.Close

con.Close

Set rs = Nothing

Set rs2 = Nothing

Set con = Nothing

End Sub