Public Sub FindPhoneNumbers()
    Dim cel As Range
    Dim rng1 As Range
    Dim rng2 As Range
    Dim rng3 As Range
    Dim ws1 As Worksheet
    Dim ws2 As Worksheet
    Dim intI As Integer
    
    Set ws1 = ThisWorkbook.Worksheets("май август")
    Set ws2 = ThisWorkbook.Worksheets("Лист3")
    
    Set rng1 = ws2.Range("F1:F1157")
    
    intI =  1 

    For Each cel In rng1
        Set rng2 = ws1.Range("A2:A2321"). _
          Find(What:=CStr(cel.Value), LookIn:=xlValues, _
          LookAt:=xlWhole)
        If Not (rng2 Is Nothing) Then
            ws2.Range("J" & intI) =  1 
        End If
        Set rng3 = ws1.Range("E2:E1517"). _
          Find(What:=CStr(cel.Value), LookIn:=xlValues, _
          LookAt:=xlWhole)
        If Not (rng3 Is Nothing) Then
            ws2.Range("K" & intI) =  1 
        End If
        intI = intI +  1 
    Next
End Sub