On Change udfør da en makro på andet ark.

Ændre lidt på din kode.

If Not Intersect(Target, Me.Range("dit område")) Is Nothing Then 'skift til dit ønskede område
      Application.EnableEvents = False
        Call Worksheets("Output").BrugFilter
    End If
End Sub

I 'BrugFilter' makroen skal du definere 'OutPut' som det ønskede ark, og dernæst henvise til det alle steder, hvor du laver ændriner til et ark, f.eks.:

Dim WS as Excel.Worksheet
Set WS = Sheets("OutPut")

WS.Filter ....
WS.Range ...
WS.Cells ...

o.s.v.

Uden din kode bli'r det lidt svært, at give et mere præcist svar.

Jeg bruger kun filter funktionen på "Output".
Makroen er meget simpel:

Sub BrugFilter()
       
        Columns("J:J").Select
    Selection.AutoFilter
    ActiveSheet.Range("$J$1:$J$200").AutoFilter Field:=1, Criteria1:="x"
 
End Sub

Hov så først lige dit indlæg ebea.
Hvad mener du med ("dit område")?

#4 - Det er det område, som du arbejder på i "Data" arket

Jeg syntes ikke jeg har succes.
Min kode ser nu sådan ud:

På kodearket 'Ark1(Data):

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Me.Range("K1:AC15")) Is Nothing Then
      Application.EnableEvents = False
    Call Worksheets("Output").BrugFilter
End If
End Sub

og min makro 'Brugfilter* ligger i kodearket 'Module1' og ser sådan ud:

Sub BrugFilter()
       
        Columns("J:J").Select
    Selection.AutoFilter
    ActiveSheet.Range("$J$1:$J$200").AutoFilter Field:=1, Criteria1:="x"
     
End Sub

Hvis jeg kører Makro 'BrugFilter' virker den på begge ark, alt efter hvilket ark jeg har fokus på. Men automatikken med at få ændringer på "Data" til at filtrerer "Output", kan jeg ikke få til at virke.