Макрос поиска и вывода строк, содержащих значение поиска - VBA

Формулировка задачи:

Здравствуйте! Есть макрос для поиска значения из ячейки А1 по всему листу и копированием строк из всех листов, содержащих это значение. Но есть и проблема: макрос поиска ищет только цифровые значения из указанной ячейки. Текстовые или смешанные не находит. Если знаете как подправить, помогите плз!!! Вот код:

                    Листинг программы
                
 
                            
                        
Sub SearchPN()
  Dim iCopi As Range
  Dim iPast As Range
  AR = Range("A1")   'значение для поиска
  SZ = 15
  PS = Cells(Rows.Count, 1).End(xlUp).Row
  Rows("15:" & PS).Delete Shift:=xlUp
  For I = 3 To 9
    IL = Cells(I, 5) 'номер листа
    KL = Cells(I, 6) 'номер столбца
    Cells(SZ, 2) = IL
    SZ = SZ + 1
    Set iCopi = Worksheets(IL).Range("A1:AD1")
    Set iPast = Worksheets("SEARCH").Range("A" & SZ)
    iCopi.Copy iPast
    SZ = SZ + 1
    PS = Sheets(IL).Cells(Rows.Count, KL).End(xlUp).Row
    For J = 2 To PS
      R = Val(Sheets(IL).Cells(J, KL))
      If Val(Sheets(IL).Cells(J, KL)) = AR Then
         Set iCopi = Worksheets(IL).Range("A" & J & ":AD" & J)
         Set iPast = Worksheets("SEARCH").Range("A" & SZ)
         iCopi.Copy iPast
         SZ = SZ + 1
      End If
    Next J
    SZ = SZ + 1
  Next I
End Sub
 
Sub Add_line()
    '
    ' Add_line Macro
    '
    ' Keyboard Shortcut: Ctrl+q
    '
    With ThisWorkbook.ActiveSheet
        Set iDiapazon = .UsedRange
        With iDiapazon
            nREnd = .Row + .Rows.Count - 1
            nCEnd = .Column + .Columns.Count - 1
        End With
        Set iDiapazon = Nothing
            
        If nREnd < 3 Then: MsgBox "ГЌГҐ ГЇГ°Г®ГўГҐГ¤ГҐГ*Г® Г*ГЁ Г®Г¤Г*Г®Г© Г®ГЇГҐГ°Г*Г¶ГЁГЁ.", vbInformation + vbOKOnly, "Г‘Г®Г®ГЎГ№ГҐГ*ГЁГҐ Г±ГЁГ±ГІГҐГ¬Г»": Exit Sub
            
'        MsgBox " - Г±ГІГ°Г®ГЄГ* " & nREnd & Chr(10) & " - Г±ГІГ®Г«ГЎГҐГ¶ " & nCEnd, vbInformation + vbOKOnly, "ГЉГ°Г*Г©Г*ГЁГҐ:"
        
        Rows(nREnd + 1).Insert Shift:=xlUp, CopyOrigin:=xlFormatFromLeftOrAbove
        
        Range(.Cells(nREnd, 1), .Cells(nREnd, nCEnd)).Copy
        Range(.Cells(nREnd + 1, 1), .Cells(nREnd + 1, 1)).PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
                SkipBlanks:=False, Transpose:=False
 
    End With
End Sub

Решение задачи: «Макрос поиска и вывода строк, содержащих значение поиска»

textual
                            Листинг программы 
                        
 
                            
                        
Option Explicit
 
Sub ГЏГ®ГЁГ±ГЄ_ГўГ®_ГўГ±ГҐГµ_ГґГ*Г©Г«Г*Гµ()
Dim iShtName$, iPath$, iFileName$, firstAddress$
Dim iSheet As Worksheet, iFoundSht As Worksheet
Dim iTempWB As Workbook, iBazaWB As Workbook
Dim TextToFind As Variant, iFoundRng As Range
Dim FD As FileDialog, iLastRow&
Dim FoundAny As Boolean
 
    TextToFind = Application.InputBox("Г‚ГўГҐГ¤ГЁГІГҐ ГІГҐГЄГ±ГІ Г¤Г«Гї ГЇГ®ГЁГ±ГЄГ*:", "ГЏГ®ГЁГ±ГЄ")
    If TextToFind = "" Or TextToFind = False Then Exit Sub
    TextToFind = Trim(TextToFind)
    Set FD = Application.FileDialog(msoFileDialogFilePicker)
    With FD
        .AllowMultiSelect = False
        .Title = "Г“ГЄГ*Г¦ГЁГІГҐ Г«ГѕГЎГ®Г© ГґГ*Г©Г« Гў ГЇГ*ГЇГЄГҐ"
        .ButtonName = "Г‚Г»ГЎГ°Г*ГІГј ГЇГ*ГЇГЄГі"
        If .Show = False Then Exit Sub Else iPath = Mid(.SelectedItems(1), 1, InStrRev(.SelectedItems(1), "\"))
    End With
    Set FD = Nothing
    Workbooks.Add
    Sheets.Add.Name = "ГЏГ®ГЁГ±ГЄ"
    Set iFoundSht = ActiveSheet
    iFoundSht.Cells(1, 1) = "Г€Г№ГҐГ¬: " & TextToFind
    iFoundSht.Cells(1, 1).Font.Bold = True
    With Application
        .ScreenUpdating = False
        .Calculation = xlManual
        .StatusBar = "Г€Г¤ВёГІ ГЇГ®ГЁГ±ГЄ..."
        .ShowWindowsInTaskbar = False
        iFileName = Dir(iPath & "*.xls")
        Do While iFileName$ <> ""
            Set iTempWB = Workbooks.Open(Filename:=iPath & iFileName, UpdateLinks:=False, ReadOnly:=True)
            For Each iSheet In iTempWB.Sheets
                If iSheet.FilterMode = True Then iSheet.ShowAllData
                Set iFoundRng = iSheet.Cells.Find(What:=TextToFind, LookIn:=xlFormulas, LookAt:=xlPart)
                If Not iFoundRng Is Nothing Then
                    FoundAny = True
                    firstAddress = iFoundRng.Address
                    Do
                        With iFoundSht
                            iLastRow = .Cells(.Rows.Count, 1).End(xlUp).Row
                            If iLastRow = 1 Then iLastRow = 2
                            If iShtName <> iSheet.Name Then    'ГҐГ±Г«ГЁ Г*Г®ГўГ»Г© ГґГ*Г©Г«
                                With .Cells(iLastRow + 2, 1)
                                    .Value = "Г”Г*Г©Г«: " & iTempWB.Name & ", Г‹ГЁГ±ГІ: " & iSheet.Name
                                    .Font.Bold = True
                                End With
                            End If
                            iFoundRng.EntireRow.Copy Destination:=.Cells(.Cells(.Rows.Count, 1).End(xlUp).Row + 1, 1)    'ГЄГ®ГЇГЁГ°ГіГҐГ¬ ГўГ±Гѕ Г±ГІГ°Г®ГЄГі
                            iShtName = iSheet.Name
                        End With
                        Set iFoundRng = iSheet.Cells.FindNext(iFoundRng)
                    Loop While iFoundRng.Address <> firstAddress
                Else
                End If
            Next
            iTempWB.Close SaveChanges:=False
            iFileName = Dir
        Loop
        .StatusBar = False
        .ShowWindowsInTaskbar = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
        .ScreenUpdating = True
    End With
    If FoundAny = False Then
        MsgBox "Г’ГҐГЄГ±ГІ '" & TextToFind & "' Г*ГЁ Гў Г®Г¤Г*Г®Г¬ ГЁГ§ ГґГ*Г©Г«Г®Гў Гў ГЇГ*ГЇГЄГҐ:" & Chr(10) & iPath & Chr(10) & " Г*ГҐ ГЎГ»Г« Г*Г*Г©Г¤ГҐГ*!", 48, "ГЋГІГ·ВёГІ"
        iFoundSht.Parent.Close SaveChanges:=False
        Exit Sub
    End If
    MsgBox "ГЏГ®ГЁГ±ГЄ " & TextToFind & " Г§Г*ГўГҐГ°ГёВёГ*!", 64, "ГЏГ®ГЁГ±ГЄ"
End Sub