オートフィルタのセット

Sub prcApplyAutoFilterToExtractBlanksBasedOnBColumn()
    ' 変数宣言
    Dim ws As Worksheet ' 処理対象のワークシート
    
    ' 処理対象のワークシートを設定
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    ' 既存のフィルタをクリア
    If ws.AutoFilterMode Then ws.AutoFilterMode = False
    
    ' B列の最終行に基づいたデータ範囲にオートフィルタを適用し、D列の値が空白のセルを抽出
    With ws
        ' B列の最終行を基にした範囲を設定
        Dim lngLastRow As Long
        lngLastRow = .Cells(.Rows.Count, "B").End(xlUp).Row
        
        ' 特定された範囲にオートフィルタを適用
        .Range("A1:D" & lngLastRow).AutoFilter Field:=4, Criteria1:="="
    End With
End Sub