Tengo la siguiente función que debe eliminar todos las filas de la columna "A" que tengan el valor 5. Pero al momento de ejecutar no me elimina ninguna fila que tenga el valor 5.
Sub Borrar()
Dim Fila As Long
For Fila = Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
If Application.WorksheetFunction.CountIf(Range("A:A"), Cells(Fila, 1)) = 5 Then Cells(Fila, 1).EntireRow.Delete
Next Fila
End Sub