Удаление строчек через цикл

Sub DeleteInsideUsers()
    Dim ra As Range, delra As Range, FindText As String
    Application.ScreenUpdating = False
 
    FindText = "LATVIJAS KAFIJAS TIRDZNIECĪBApa de"
 
    
   For Each ra In ActiveSheet.UsedRange.Rows
        
       If Not ra.Find(FindText, , xlValues, xlPart) Is Nothing Then
            
           If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
        End If
    Next
    
   If Not delra Is Nothing Then delra.EntireRow.Delete
End Sub

Sub DeleteLongList()
Dim Array_List(1 To 47) As String
Dim ra As Range, delra As Range, FindText As String
Dim i
 
    Array_List(1) = "XXX"
    Array_List(2) = "YYYY"
    //.....................   и таким способом все 47 позиций...
    
 Application.ScreenUpdating = False
    
  For i = 1 To 47
    
   FindText = Array_List(i)
   For Each ra In ActiveSheet.UsedRange.Rows
        
       If Not ra.Find(FindText, , xlValues, xlPart) Is Nothing Then
            
           If delra Is Nothing Then Set delra = ra Else Set delra = Union(delra, ra)
        End If
    Next
    
   If Not delra Is Nothing Then delra.EntireRow.Delete
 
Next i
End Sub

If Not delra Is Nothing Then delra.EntireRow.Delete

set delra=nothing