excel VBA フィルタがついているか確認し、ついていたら取って付け直す+検索結果が0件の場合

タイトル通り、フィルタ確認し、ついていたら取って付け直すのは、
以下のコードになります。

Sub test()    
    With ActiveSheet
        If .AutoFilterMode Then
           .AutoFilterMode = False
        End If        
        .UsedRange.AutoFilter
    End With    
End Sub

下記サイトさんを参考にさせていただきました。ありがとうござました！
オートフィルタの状況を調べる
ワークシートで使用されているセル範囲

また、検索結果で０件の場合を知りたかったのですが、
「WorksheetFunction.Subtotal(3, Range("B:B"))」で、
１だとタイトルだけなのでなし、ということになるようです。

参考サイトさん
オートフィルタの結果を集計する
いつもありがとうございます（ぺこぺこ）