Combine different cell content searches with equal outcome

[Deverti]

Im using this to search for content and clear the corresponding row.
I need to use it for several different cell contents, not only the two i listed here and it s becoming chaotic.

Is it possible to simply combine them?

Would be amazing if there s a way to just list them somewhat like this: If rng.Item(i).Value = "AUFWAND" or "GESAMT-TOTAL AUFWAND" or "" Then

Sub ClearRow_AUFWAND()
    Dim rng As Range
    Set rng = ActiveSheet.UsedRange
    
    For i = rng.Cells.Count To 1 Step -1
        If rng.Item(i).Value = "AUFWAND" Then
            rng.Item(i).EntireRow.Clear
        End If
    Next i
End Sub

Sub ClearRow_GESAMT_TOTAL_AUFWAND()
    Dim rng As Range
    Set rng = ActiveSheet.UsedRange
    
    For i = rng.Cells.Count To 1 Step -1
        If rng.Item(i).Value = "GESAMT-TOTAL AUFWAND" Then
            rng.Item(i).EntireRow.Clear
        End If
    Next i
End Sub

 

[Fluff]

Will those values be in a particular column, or can they be anywhere?

 

[Deverti]

All Values i need to find are located in column A

 

[Fluff]

Ok, how about

Sub Deverti()
   Dim Cl As Range
   
   For Each Cl In Range("A1", Range("A" & Rows.Count).End(xlUp))
      Select Case Cl.Value
         Case "AUFAND", "GESAMT-TOTAL AUFWAND"
            Cl.EntireRow.Clear
      End Select
   Next Cl
End Sub

 

[Deverti]

Oh ya, that s way better

thanks a lot

 

[Fluff]

You're welcome & thanks for the feedback.