Hvorfor makro ikke kører?

Hej!
Jeg har optaget en makro og når jeg lægger den under en knap så kører den fint. Men jeg har prøvet at installerer den som tilføjelse program og har tilknytet en knap til den. Når jeg kører den som tilføjelsesprogram får jeg en fejlmeddelse ERROR 400. Hvorfor det?
her er makro:
Sub update()

' Makro indspillet 22-03-2006 af avg



  Range("C1").Select
    Selection.Cut Destination:=Range("C3")
    Rows("1:2").Select
    Selection.Delete Shift:=xlUp
    Columns("A:C").Select
    Selection.AutoFilter
    Selection.AutoFilter Field:=1, Criteria1:="=0620", _
        Operator:=xlOr, Criteria2:="=0621"
    Columns("A:C").Select
    Selection.Copy
    Sheets("Ark2").Select
    ActiveSheet.Paste
'
End Sub