Sub ki303()
    Sheets("Sheet1").Select
    Application.ScreenUpdating = False
        ActiveCell.SpecialCells(xlLastCell).Select
        cen1 = ActiveCell.Row
For i = 1 To cen1
er = 0
        Sheets("Sheet1").Select
        jp = Cells(i, 1)
      
        Sheets("Sheet2").Select
   On Error GoTo paserr
          Range("A1:A200").Find(jp, , , xlWhole, xlByColumns, xlNext, False).Activate
          If er = 0 Then
                ra = ActiveCell.Row
                eng = Cells(ra, 2)
          End If
  On Error GoTo 0
      Sheets("Sheet1").Select
      If er = 1 Then
            Cells(i, 1) = jp
      Else
            Cells(i, 1) = eng
      End If
Next
 
Range("A1").Select
Exit Sub
paserr:
       er = 1
       Resume Next
End Sub
       
Sub ki303a()
Sheets("Sheet1").Range("C1:C30").Copy Sheets("Sheet1").Range("A1")
End Sub