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