Você está usando
Private Sub Worksheet_Change(ByVal Target As Range)
Por isso, o acionador é ativado em destinos específicos quando eles são alterados. Você não verificou o alvo em relação a qualquer condição para não ser acionado. Você deve verificar se a alteração do Alvo está dentro do seu intervalo filtrado, como
If Not Intersect(Target, Range("A1:A10") is Nothing Then