Поиск по столбцу

Private Sub CommandButton1_Click()
'Поиск по первому столбцу
    Dim iRange As Range
    Dim iFind As String
    Dim iRow As Integer
    iFind = Worksheets("Лист1").Cells(3, 1).Value
    Set iRange = Worksheets("Лист1").Columns("A:A").Find(What:=iFind)
    iRow = iRange.Row
    
'Поиск по второму столбцу
    Dim iRange0 As Range
    Dim iFind0 As String
    Dim iRow0 As Integer
    iFind0 = Worksheets("Лист1").Cells(3, 2).Value
    Set iRange0 = Worksheets("Лист1").Columns("B:B").Find(What:=iFind0)
    iRow0 = iRange0.Row
    
'Проверка
    MsgBox ("iFind= " & iFind & Chr(13) & _
            "iRow= " & iRow & Chr(13) & Chr(13) & _
            "iFind0= " & iFind0 & Chr(13) & _
            "iRow0= " & iRow0)
    
End Sub

Private Sub CommandButton1_Click()
    Dim whereImLooking As Range
    Set whereImLooking = Worksheets("Ëèñò1").Range("B3:B" & Cells(Rows.Count, "B").End(xlUp).Row)
    
    Dim iLookingFor As String
    iLookingFor = Worksheets("Ëèñò1").Cells(1, 2).Value
    
    Dim iRowErr As Integer
    
    If iLookingFor = whereImLooking.Find(What:=iLookingFor, LookIn:=xlValues, LookAt:=xlPart, _
                                        SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, _
                                        MatchCase:=False, SearchFormat:=False) Then
        iRowErr = whereImLooking.Find(What:=iLookingFor, LookIn:=xlValues, LookAt:=xlPart, _
                                        SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, _
                                        MatchCase:=False, SearchFormat:=False).Row
        MsgBox "Óæå åñòü !" & Chr(13) & Chr(13) & "Âîò æå îíî :)" & Chr(13) & _
            (Worksheets("Ëèñò1").Cells(iRowErr, 1).Value), vbCritical, "ÂÍÈÌÀÍÈÅ"
            Worksheets("Ëèñò1").Cells(iRowErr, 1).Select
        Exit Sub
    Else
        Worksheets("Ëèñò1").Cells(Cells(Rows.Count, 2).End(xlUp).Row + 1, 2).Value = iLookingFor
        MsgBox "Íå çàáóäü äîáÿâèòü èìÿ!", vbExclamation, "ÂÍÈÌÀÍÈÅ"
        Worksheets("Ëèñò1").Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 2).Select
    End If
End Sub

Private Sub CommandButton1_Click()
    Dim whereImLooking As Range
    Dim myCell As Range
    Set whereImLooking = Worksheets("Лист1").Range("B3:B" & Cells(Rows.Count, "B").End(xlUp).Row)
    
    Dim iLookingFor As String
    iLookingFor = Worksheets("Лист1").Cells(1, 2).Value
    
    Dim iRowErr As Integer
    
    Set myCell = whereImLooking.Find(What:=iLookingFor, LookIn:=xlValues, LookAt:=xlPart, _
                                        SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, _
                                        MatchCase:=False, SearchFormat:=False)
    If Not myCell Is Nothing Then 'найдено
        myCell.Select
        MsgBox "Уже есть !" & vbLf & vbLf & "Вот же оно :)" & vbLf & _
            myCell, vbCritical, "ВНИМАНИЕ"
        Exit Sub
    Else
        Worksheets("Лист1").Cells(Cells(Rows.Count, 2).End(xlUp).Row + 1, 2).Select
        Selection.Value = iLookingFor
        MsgBox "Не забудь добявить имя!", vbExclamation, "ВНИМАНИЕ"
'        Worksheets("Лист1").Cells(Cells(Rows.Count, 1).End(xlUp).Row + 1, 2).Select
    End If
End Sub

Private Sub CommandButton1_Click()
    Dim whereImLooking As Range
    Dim iRowErr As Integer
    Set whereImLooking = Worksheets("Ëèñò1").Range("B3:B" & Cells(Rows.Count, "B").End(xlUp).Row)
    Dim iLookingFor As String
    iLookingFor = Worksheets("Ëèñò1").Cells(1, 2).Value
    Dim myCell As Range
    Set myCell = whereImLooking.Find(What:=iLookingFor, LookIn:=xlValues, LookAt:=xlPart, _
                                        SearchOrder:=xlByColumns, SearchDirection:=xlPrevious, _
                                        MatchCase:=False, SearchFormat:=False)
    If Not myCell Is Nothing Then 'íàéäåíî
        myCell.Select
        iRowErr = myCell.Row
        MsgBox "Óæå åñòü !" & vbLf & vbLf & "Âîò æå îíî :)" & vbLf & _
            (Worksheets("Ëèñò1").Cells(iRowErr, 1).Value), vbCritical, "ÂÍÈÌÀÍÈÅ"
            Worksheets("Ëèñò1").Cells(iRowErr, 1).Select
        Exit Sub
    Else
        Worksheets("Ëèñò1").Cells(Cells(Rows.Count, 2).End(xlUp).Row + 1, 2).Select
        Selection.Value = iLookingFor
        MsgBox "Íå çàáóäü äîáÿâèòü èìÿ!", vbExclamation, "ÂÍÈÌÀÍÈÅ"
        Worksheets("Ëèñò1").Cells(Selection.Row, 1).Select
    End If
End Sub