https://www.relief.jp/docs/excel-vba-delete-rows-with-conditions.htmlから引用

都道府県が「東京」「東京都」「大阪」「大阪府」の行を削除するマクロです。

なお、A列の姓は必ず何らかのデータが入っているものとします。

Sub 条件に一致した行を削除する()
　Dim i As Long
　For i = Range(“A1”).End(xlDown).Row To 2 Step -1
　With Cells(i, “G”)
　　If _
　　.Value Like “東京*” Or _
　　.Value Like “大阪*” Then
　　　.EntireRow.Delete
　　End If
　End With
　Next i
End Sub
A列の一番下のデータから上方向に向かってループを回して、
　For i = Range(“A1”).End(xlDown).Row To 2 Step -1

もしも、G列のデータが「東京」か「大阪」で始まっていたら、
　With Cells(i, “G”)
　　If _
　　.Value Like “東京*” Or _
　　.Value Like “大阪*” Then

その行全体を削除しています。
　　　.EntireRow.Delete