vba - 特定のテキストを含む行を除くすべての行を削除するマクロ

Question

特定のテキストを含む行を除いて、すべての行を削除するマクロを作成しようとしています。

次の基準が必要です。

• 最初の 2 行を削除しない
• C列またはD列に「Somme」という単語が含まれる行を除外します。

Somme という単語は、列 C または D の文字列の一部であることに注意してください。見つかったテキストの例は次のようになります。

ソンムアルファ/000284727819293

私がこれまでに持っているのは、Somme を含む行を削除するコードですが、反対のものが必要です:

Sub CleanUp()
    Dim c As Range
    Dim SrchRng

    Set SrchRng = ActiveSheet.Range("D3", ActiveSheet.Range("D65536").End(xlUp))
    Do
        Set c = SrchRng.Find("Somme", LookIn:=xlValues)
        If Not c Is Nothing Then c.EntireRow.Delete
    Loop While Not c Is Nothing
End Sub