Sub Idenentifikator()

Dim I, Per, NomRow, NesOst, Iden As String

Windows("Tovar.xls").Activate
Worksheets("zakaz").Activate
Range("A1").Select
'вычисляем номер последней строки
I = ActiveWorkbook.ActiveSheet.Cells(Rows.Count,  1 ).End(xlUp).Row
'пробежка по столбцу А и присвоение переменной Iden значения
For Per =  2  To I Step  1 
    Worksheets("zakaz").Activate
    Iden = Worksheets("zakaz").Range("A" & Per).Value
'ищем Iden на листе gbase
Worksheets("gbase").Activate
Columns("A:A").Select
    Selection.Find(What:=Iden, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
        xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
    Selection.FindNext(After:=ActiveCell).Select
    NomRow = Selection.Row
    NesOst = Range("C" & NomRow)
'вставляем NesOst в исходную таблицу
Worksheets("zakaz").Activate
Worksheets("zakaz").Range("F" & Per) = NesOst
Next Per
End Sub