Macro que informa datos repetidos

Hola amigos, he creado un registro en excel en el cual introduciendo datos previamente en otra planilla y apretando un boton se crea un registro de los datos cargados y a su vez me informa y borra si los datos estan repetidos. Este macro lo utilizaba para la confeccion de contratos y cumplia su funcion pero ahora necesito utilizar este mismo macro pero y que me informe cuando haya algun dato repetido pero que no elimine los datos.
El macro que necesito modificar es el siguiente:
im fila As Long
Dim contador As Long
contador = 0
With Application
For fila = Cells(Rows.Count, 3).End(xlUp).Row To 1 Step -1
If .WorksheetFunction.CountIf(Range("C:C"), _
Cells(fila, 3)) > 1 Then
Cells(fila, 3).EntireRow.Delete
contador = contador + 1
End If
Next fila
End With
End If
If MsgBox("se encontraron " & contador & " datos repetidos. ¿Desea imprimir la boleta?", vbQuestion + vbYesNo) = vbYes Then
supongo que se debe reemplazar donde dice "cells(fila, 3).EntireRow.delete" por algun otro codigo, pero ya intente varios y no lo pude conseguir
muchas gracias saludos!