.Cells(iLastRowresult, 1).EntireRow = poisk.Cells(i, 1).EntireRow

Sub poisk_na_liste()
Dim found_value As Range
Dim iLastRowpoisk As Long, iLastRowresult As Long, i As Long
Dim poisk As Worksheet, gde_poisk As Worksheet, result As Worksheet
Dim firstAddress As String

    Set poisk = Worksheets("poisk")
    Set gde_poisk = Worksheets("gde_poisk")
    Set result = Worksheets("result")
  
    iLastRowpoisk = poisk.Cells(Rows.Count, 1).End(xlUp).Row
    If iLastRowpoisk = 1 Then
        MsgBox "Нет данных"
        Exit Sub
    End If
    '
    For i = 1 To iLastRowpoisk
        With gde_poisk
     
            Set found_value = .Columns(1).Find(poisk.Cells(i, 1), LookIn:=xlFormulas, lookat:=xlPart)
            
            If Not found_value Is Nothing Then
                
                   With result
                    iLastRowresult = .Cells(Rows.Count, 1).End(xlUp).Row + 1
              
              .Cells(iLastRowresult, 1).EntireRow = gde_poisk.Cells(i, 1).EntireRow
                End With

            End If
        End With
    Next i
     
End Sub

.Cells(iLastRowresult, 1).EntireRow.Value = gde_poisk.Cells(i, 1).EntireRow.Value