45회 엑셀 고급필터 자동화 매크로 + 실전예제 관련 코딩 질문

마무리에 와서 결과값을 내림차순 올림차순을 하는 기능삽입에서 '1004' 런타임 오류가 발생했습니다. 추출범위의 필드 이름이 잘못되었거나 없습니다. 라는 오류창이 발생하더라구요. 내림차순 올림차순 기능을 넣기 전까지는 작동을 잘 했지만 이 이후에 위 오류창이 발생해서 오빠두님 동영상 보고 오류 해결방안 코드를 넣었지만 마찬가지로 계속 이 오류창이 발생합니다.

 해결방안 부탁드립니다.

원래는 동영상 댓글에 쓰고 싶었으나 코드가 너무 날것이라 커뮤니티에 적어봅니다.

-----------module1(코드)----------

Sub 고급필터()

RemoveChrs Sheet2.Range("B11:S11"), " ▲, ▼"
Sheet1.Range("A1").CurrentRegion.AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=Sheet2.Range("B7").CurrentRegion, _
CopyToRange:=Sheet2.Range("B11").CurrentRegion.Rows(1), _
Unique:=False

End Sub

Sub 초기화()

Dim r As Range

Application.ScreenUpdating = False

Set r = Selection

Sheet2.Range("초기화범위").Select

Selection.ClearContents

ClearContentsBelow Sheet2.Range("B12")

r.Select

Application.ScreenUpdating = True

End Sub

Sub ClearContentsBelow(startRng As Range, Optional ColNo, Optional BaseCol As Long = 0)

Dim WS As Worksheet: Dim lastRow As Long: Set WS = startRng.Parent
If IsMissing(ColNo) Then ColNo = WS.Cells(startRng.Row, WS.Columns.Count).End(xlToLeft).Column
If Not IsNumeric(ColNo) Then ColNo = Range(ColNo & 1).Column
If BaseCol = 0 Then BaseCol = startRng.Column Else BaseCol = startRng.Column + BaseCol - 1
lastRow = WS.Cells(WS.Rows.Count, BaseCol).End(xlUp).Row
If lastRow < startRng.Row Then Exit Sub
WS.Range(startRng, WS.Cells(lastRow, ColNo)).ClearContents
End Sub
Sub SortToClick(Rng As Range)
If Rng.Rows.Count = Rng.Parent.Rows.Count Then Exit Sub
Dim r As Range: Dim rh As Range: Dim Rs As Range
Set r = Rng.CurrentRegion
Set rh = Cells(r.Row, Rng.Column)
If Not (Right(rh.Value, 2) = " ▼" Or Right(rh.Value, 2) = " ▲") Then
r.Sort Rng, xlAscending, Header:=xlYes
rh.Value = rh.Value & " ▲"
Else
If Right(rh.Value, 2) = " ▲" Then
r.Sort Rng, xlDescending, Header:=xlYes
rh.Value = Replace(rh.Value, " ▲", " ▼")
Else
r.Sort Rng, xlAscending, Header:=xlYes
rh.Value = Replace(rh.Value, " ▼", " ▲")
End If
End If
For Each Rs In r.Rows(1).Cells
If (Right(Rs.Value, 2) = " ▼" Or Right(Rs.Value, 2) = " ▲") And Rs.Column <> Rng.Column Then
Rs.Value = Left(Rs.Value, Len(Rs.Value) - 2)
End If
Next
End Sub
Sub RemoveChrs(Rng As Range, Chrs As String)

Dim r As Range
Dim va As Variant: Dim v As Variant

va = Split(Chrs, ",")

For Each r In Rng
For Each v In va
If InStr(r.Value, v) > 0 Then r.Value = Replace(r.Value, v, "")
Next
Next

End Sub