Wie kann ich bei folgendem Code die If Zeile so umstellen, dass die Parameter im Array nicht gelöscht werden sondern die Begriffe welchesich  nicht im Array befinden.

Sub Ueberflüssig()

Dim rngFind As Range, arSearch As Variant, i%
arSearch = Array("Betrag", "Valutadatum")

'das sind Spaltenüberschriften, die ünerwünscht sind
For i = 0 To UBound(arSearch)
Set rngFind = Rows(1).Find(arSearch(i), LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False)

If Not rngFind Is Nothing Then rngFind.EntireColumn.Delete

Next
End Sub