고급필터에서 빈셀 포함 조건셀이 2개 이상일때 누락 데이터, 오름/내림차순 순서 바꾸는 방법 문의

Sub SortToClick(Rng As Range)
'###############################################################
'오빠두엑셀 VBA 사용자지정함수 (https://www.oppadu.com)
'▶ SortToClick 함수
'▶ 선택된 셀과 연속된 범위를 선택된 셀의 머릿글 기준으로 정렬하고 머릿글에 오름/내림차순 화살표를 추가합니다.
'▶ 인수 설명
'_____________Rng           : 범위를 정렬할 기준 셀입니다.
'▶ 사용 예제
'SortToClick Sheet1.Range("A1")  <- A1셀과 연결된 범위를 A열의 머릿글 기준으로 정렬합니다.
'##############################################################
 
    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, xlDescending, 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