VBA 현재 셀 기준 같은열 같은값 필터/전체보기

Sub 필터같은값()
'
' 매크로1 매크로
'
' Ctrl + Shift + F
    Dim Find_Value As String
    Find_Value = ActiveCell.Value
    With ActiveSheet.UsedRange
        .AutoFilter ActiveCell.Column, Find_Value, xlFilterValues
    End With
End Sub
Sub 필터같은값모두보기()
'
' 매크로1 매크로
'
' Ctrl + Shift + A
    With ActiveSheet
        If .FilterMode = True Then
            .ShowAllData
        End If
    End With
    ActiveCell.Activate
End Sub