VBA オートフィルタ後の抽出データ削除時の挙動について

Question

下記表に対して下記処理を実行した際、
フィルタされていない全てのデータ含めヘッダ以外のすべてのデータが消えてしまいます。
フィルタした結果何もデータがなかった場合
何もデータを消さないという処理を書きたいのですが
どのように書けばよろしいでしょうか。

Option Explicit

Sub sample()

Dim targetRange As Range

'オートフィルタの設定と表の1列目「名前」を文字列「鈴木」で絞り込み
Worksheets("sample").Range("B2").AutoFilter field:=1, Criteria1:="鈴木"

'絞り込んだ行(＝表示させた行)のみを対象として取得
With Worksheets("sample").Range("B2").CurrentRegion
    Set targetRange = .Resize(.Rows.Count - 1).Offset(1, 0)
End With

'絞り込んだ行(＝表示させた行)のみを削除
targetRange.Delete Shift:=xlUp

'オートフィルタを解除
Worksheets("sample").Range("B2").AutoFilter

End Sub

表
名前 売上
ーーーーーーーー
佐藤 500
田中 20
井上 30
佐藤 500
田中 50
井上 60
佐藤 500
田中 80
井上 90

Answer 1

オートフィルター後に表示されているものを条件に追加してみました。
該当するセルがない場合のエラー処理を追記しました。

Sub  a()
    With Worksheets("sample").Range("B2").CurrentRegion
        On Error GoTo No1004
        Set targetRange = .Resize(.Rows.Count - 1).Offset(1).SpecialCells(xlVisible)
        On Error GoTo 0
    End With
    
    Exit Sub
    
No1004: '該当するセルがない場合のエラー処理
    If Err.Number = 1004 Then
        Resume Next
    Else
        Err.Raise Err.Number
    End If
End Sub

Comments

[jack]

実行時エラー　1004
該当するセルが見つかりません。
というエラーが出てしまいます。。

その場合、例外処理を入れて次の処理へジャンプ
みたいな感じにすればいいんですかね。

[TanakaHiroaki]

例外処理を入れたコードに修正してみました。

[jack]

targetRange.Delete Shift:=xlUpでエラーが出てしまいます。

targetRange変数に何も入っていない場合、処理を続行する。
targetRange変数に入っていた場合、targetRange.Delete Shift:=xlUpの処理を実行する。
というのが思い浮かんでいるのですが、書き方がわかりません。
range型変数が空というのはどのように書けばよいでしょうか。