Spalteninhalte löschen

Sub Spalteninhalt_Löschen()
Dim i As Single
Application.ScreenUpdating = False
For i = 1 To 100
If Cells(1, i).Value = "Begriff1" Then
Columns(i).ClearContents
i = i - 1
End If
Next i
Application.ScreenUpdating = True
End Sub

wenn in der Zeile 1 der Begriff1 vorkommt, wird also der dazugehörige Spalteninhalt (bis Spalte 100) gelöscht.
Wie kann ich jedoch das Macro erweitern für andere Begriffe? Also wenn Begriff1, oder Begriff2, oder... vorkommt, dann die dazugehörigen Spalteninhalte löschen.
Es funktioniert zwar wenn ich die Schleife kopiere und immer den Begriff neu eingebe, doch bei 150 Begriffen wird das schon mühselig, kann man diese Begriffe nicht zusammenhängend eingeben (oder auf eine Zeile bzw. Spalte verweisen wo sie aufgelistet sind)?
Vielen Dank,
Gruß, Claudia