sao mình bấm vào ô bỏ trùng nhưng nó không có lọc và cũng không có thông

sao mình bấm vào ô bỏ trùng nhưng nó không có lọc và cũng không có thông báo nào, đoạn code nó chạy như này bạn ạ

Sub Macro2()

'

' Macro2 Macro

'

'

    Range("A1:A14").Select

    ActiveSheet.Range("$A$1:$A$12").RemoveDuplicates Columns:=1, Header:=xlYes

    Range("C3").Select

    ActiveSheet.Shapes.AddShape(msoShapeRectangle, 144.75, 15, 66.75, 28.5).Select

    Selection.ShapeRange(1).TextFrame2.TextRange.Characters.Text = "b? trùng"

    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 8). _

        ParagraphFormat

        .FirstLineIndent = 0

        .Alignment = msoAlignLeft

    End With

    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(1, 2).Font

        .NameComplexScript = "+mn-cs"

        .NameFarEast = "+mn-ea"

        .Fill.Visible = msoTrue

        .Fill.ForeColor.ObjectThemeColor = msoThemeColorLight1

        .Fill.ForeColor.TintAndShade = 0

        .Fill.ForeColor.Brightness = 0

        .Fill.Transparency = 0

        .Fill.Solid

        .Size = 11

        .Name = "+mn-lt"

    End With

    With Selection.ShapeRange(1).TextFrame2.TextRange.Characters(3, 6).Font

        .BaselineOffset = 0

        .NameComplexScript = "+mn-cs"

        .NameFarEast = "+mn-ea"

        .Fill.Visible = msoTrue

        .Fill.ForeColor.ObjectThemeColor = msoThemeColorLight1

        .Fill.ForeColor.TintAndShade = 0

        .Fill.ForeColor.Brightness = 0

        .Fill.Transparency = 0

        .Fill.Solid

        .Size = 11

        .Name = "+mn-lt"

    End With

    Range("F5").Select

    ActiveSheet.Shapes.Range(Array("Rectangle 1")).Select

    Selection.OnAction = "Macro2"

    Range("A3").Select

    Selection.Copy

    Range("A9").Select

    ActiveSheet.Paste

    Range("A6").Select

    Application.CutCopyMode = False

    Selection.Copy

    Range("A10").Select

    ActiveSheet.Paste

    Range("C7").Select

    ActiveSheet.Shapes.Range(Array("Rectangle 1")).Select

    Range("A10").Select

    Application.CutCopyMode = False

End Sub