Dim NewStroka
Dim cell As Range
Dim Poisk_A, Poisk_B, Poisk_C, zz, zzz
NewStroka = Worksheets("Kleimo").Cells(Rows.Count, 1).End(xlUp).Row + 1
Poisk_A = Kleimo1.Text
zz = 0
On Error Resume Next
For Each cell In Worksheets("Kleimo").Range(Cells(1, 1), Cells((NewStroka - 1), 1)).Cells
    zz = zz + 1
    If cell = Val(Poisk_A) Then
        Poisk_A = "Êë." + Kleimo1.Text + ":" + Worksheets("Kleimo").Cells(zz, 2)
        Exit For
    End If
Next cell

On Error Resume Next