1. 데이터가 변경될 시트 탭에서 마우스우측->코드보기

2. 아래 내역 복사하여 입력한 후 저장 (필터가 있는 시트명을 Sheet2 대신에 입력 - 시트가 여러개면 해당 라인 추가)

Private Sub Worksheet_Change(ByVal Target As Range)
   Sheets("Sheet2").AutoFilter.ApplyFilter
End Sub

3. 엑셀 저장시 파일형식을 Excel 매크로 사용 통합 문서(*.xlsm) 로 저장

AND