Macro no puede copiar datos en una celda que tiene una referencia de una fórmula

Antecedentes: al ejecutar una macro y ésta al pegar los datos en una celda me produce un error del tipo 5, ya me dí cuenta por que se produce el error, dicho error se produce porque una fórmula hace referencia a la celda donde la macro va ha incertar los datos

¿Se puede cambiar el código de la Macro para que omita la referencia de la Macro?

¿La Fórmula que estoy usando la puedo anexar al código de la Macro para evitar el problema?

La Macro que estoy usando es del Maestro Luis Mondelo, muy buena por cierto.

Sub ejemplo()
'por luismondelo
fila = 2
Range("a2").Select
Do While ActiveCell.Value <> ""
If InStr(valores, ActiveCell) = 0 Then
valores = valores & "," & ActiveCell
End If
ActiveCell.Offset(1, 0).Select
Hoja1.TextBox1.Activate
Loop

valores = Split(valores, ",")
For x = 0 To UBound(valores)
contarsi = Application.WorksheetFunction.CountIf(Columns(1), valores(x))
Cells(fila, 5).Value = valores(x)
Cells(fila, 4).Value = contarsi
fila = fila + 1
Next
End Sub