Sub test()
'
' test Macro

'
Dim i As Integer

For i = 2 To 350
    For j = 2 To 700
        If (Sheet1.Cells(j, 4) = Cells(i, 1)) Then
            Cells(i, 4) = Sheet1.Cells(j, 3)
        Exit For
        End If

    Next j
Next i



End Sub