FilterByCellValue

Sub FilterByCellValue()
' Keyboard Shortcut: Ctrl+q
  ActiveSheet.Range(ActiveCell.CurrentRegion.Address).AutoFilter Field:=ActiveCell.Column, Criteria1:=ActiveCell.Value
End Sub

Sub ClearFilter()
' Keyboard Shortcut: Ctrl+w
     If Range(ActiveCell.CurrentRegion.Address).Worksheet.FilterMode = True Then
        ActiveSheet.ShowAllData
     End If
End Sub