VBA) autofilter 메서드 오류

안녕하세요.

검색기능 관련해서 지식인에 있는 VBA를 갖고와서 사용중인데,

똑같이 입력했는데

"현장등록" 시트에서는 정상 작동되는데,

"data" 시트에서는 오류 나는 이유가 뭘까요? ㅠㅠ

data 내용을 그대로 복사해서 새로운 시트 만들면 또 정상작동하더라고요..

data 시트를 참조하는 시트가 많아서 data 시트가 되도록 수정하고 싶은데

뭐가 문제인지 확인 좀 부탁드려요 ㅠㅠ!!

Private Sub Worksheet_Change(ByVal Target As Range)
Const s$ = "B2,C2,A2"
If Target.CountLarge > 1 Then Exit Sub
If Not Intersect(Target, Range(s)) Is Nothing Then

With Range("a1", Range("a3").CurrentRegion)
With .Offset(2).Resize(.Rows.Count - 2)
.Autofilter
Dim c As Range
For Each c In Range(s)
If c <> "" Then
.Autofilter Field:=c.Column, Criteria1:="*" & c.Value & "*"
End If
Next
End With
End With
End If
End Sub

Public Sub 초기화()
Range("B2,C2,A2").ClearContents
With Range("a1", Range("a3").CurrentRegion)
With .Offset(2).Resize(.Rows.Count - 2)
If Me.AutoFilterMode Then
.Autofilter
End If
.Autofilter
End With
End With
End Sub