Sub 不要単語を含む行を行削除()
    
    不要単語 = Range("D1").Value '不要単語を取得
    
    最終行 = Cells(Rows.Count, "A").End(xlUp).Row 'A列の最終行を取得
    
    ActiveSheet.AutoFilterMode = False 'フィルターがオンだとエラーになるの毎回解除
    
    '1は列数(A列),"=*" & 不要単語 & "*"で不要単語を含むセルを指定
    Range("A1:B" & 最終行).AutoFilter Field:=1, Criteria1:="=*" & 不要単語 & "*"
    
    Rows("2:" & 最終行).Delete 'A列で不要単語を含む行がソートされ全行削除
    
    ActiveSheet.AutoFilterMode = False 'フィルター解除
    
End Sub