Error de compilacion

Hola grupo tengo el siguiente problemita

tenia una macro que funcionaba perfectamente

pero hoy la estoy probando y me sale el siguiente error: Error de
complilación en el módulo oculto: Módulo 1

cuando desbloqueo el proyecto de visual basic y lo vuel a ejecutar
aparece elsiguiente error

Error de complilación: No se puede encontrar el proyecto o biblioteca

La macro es la siguiente fue creada por nuestro amigo Héctor

Sub Ordena_Limpia()
Dim ColDesp As Byte, Fila_1 As Integer, Fila_2 As Long, Fila_x As
Integer
ColDesp = 4 ' columna E en relacion con la columna A '
Application.ScreenUpdating = False
[a2].Sort [a2], xlAscending, , , , , , xlYes > Aqui marca
el error señala [a2] despues de Sort
With Range([a2], [a2].End(xlDown))
.Offset(, ColDesp).Formula = "=if(countif(a$2:a2,a2)=1,a2,"""")"
.Value = .Offset(, ColDesp).Value
.Offset(, ColDesp).Value = .Value
Fila_x = .Row + .Rows.Count - 1: Fila_2 = 2
With .Offset(, ColDesp).Offset(-1).Resize(1)
Do While Fila_1 < Fila_x: Fila_1 = Fila_2
With .Offset(Fila_1 - 1)
Fila_2 = IIf(IsEmpty(.Offset(1)), .End(xlDown).Row, Fila_2 +
1)
If Fila_2 > Fila_x Then Fila_2 = Fila_x + 1
.Value = Application.Sum(.Offset(, -1).Resize(Fila_2 -
Fila_1))
' .Formula = "=sum(" & .Offset(, -1).Resize(Fila_2 -
Fila_1).Address(0, 0) & ")"
End With
Loop
End With
End With
End Sub


Gracias por su ayuda de antemano