Boa noite,

Testa o código abaixo, basta colar ele direto na Plan1(Plan1) e Plan2(Plan2) do Microsoft Excel Objetos:

Private Sub Worksheet_Change(ByVal Target As Range)
         
        If Target.Value <> "" Then
        
            If Plan1.Range("A1").Value = "exemplo" Then
                Plan1.Activate
            Else
                Plan2.Activate
            End If
         
        End If
    
End Sub

E se por exemplo eu quero verificar se na B2 tem escrito "exemplo" copia a linha de A2:M2 até acabar os dados da planilha

Mais ou menos ASSIM:

IF B2=exemplo
{
copy A2:M2
paste planilha "X"
}
If B2=planilhando
{
copy A2:M2
paste planilha "Y"

Só que sao cerca de 15 palavras diferentes.

ou seria mais facil eu fazer um "filtro" e copiar tudo de uma vez so?

Você pode usar a instrução SELECT CASE ao invés de 15 IFs

Copy A2:M2

SELECT CASE B2

CASE "exemplo"
paste planilha "X"

CASE "planilhando"
paste planilha "Y"

CASE [...]
paste planilha [...]


END SELECT