End sub/with problem

Your code tags are messed up, please correct.

Your attached file does not have any code in it.

I pasted your code above and it compiled and ran fine with no errors. Here is the (correctly formatted) version of what I actually ran:

Sub DeleteDuplicateEntries()

   Dim rClMain As Range
   Dim rClDupe As Range
   Dim rCheck
   Dim N As Long
   
   Application.ScreenUpdating = False
   N = 0
   
   'currently starts in A2 down,adjust to your data
   Set rCheck = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
   
   For Each rClMain In rCheck
      '1st loop - (to speed things up ignore any empty cells)
      If rClMain <> Empty Then
         For Each rClDupe In rCheck
            '2nd loop - compare non-empty rClDupe values
            'and clear contents if it's a duplicated value
            If rClDupe <> Empty And _
               rClDupe.Value = rClMain.Value And _
               rClDupe.Address <> rClMain.Address Then
               rClDupe.EntireRow.Delete
               N = N + 1
            End If
         Next rClDupe
      End If
   Next
   
   Application.ScreenUpdating = True
   MsgBox "There were " & N & " duplicated entries deleted"

End Sub

I don't understand your second question. This code does not count empty cells.