Sub myFilter()
    
    Cells.EntireRow.Hidden = False
    
    Dim r As Range
    On Error Resume Next
    Set r = Intersect(ActiveSheet.UsedRange, Selection)
    On Error GoTo 0
    
    With r.Areas(1)
        If .Cells.Count > 1 Then
            Dim arr As Variant
            arr = .Cells
            Dim y As Long
            For y = 1 To UBound(arr, 1)
                If Not IsNumeric(Left(arr(y, 1), 1)) Then
                    .Cells(y, 1).EntireRow.Hidden = True
                End If
            Next
        End If
    End With
End Sub