Sub ki302()
    Sheets("Sheet1").Select
    Application.ScreenUpdating = False
        ActiveCell.SpecialCells(xlLastCell).Select
        cen1 = ActiveCell.Row
For i = 1 To cen1
        Sheets("Sheet1").Select
        jp = Cells(i, 1)
      
        Sheets("Sheet2").Select
   Set actv = Range("A1:A100").Find(jp, , , xlWhole, xlByColumns, xlNext, False)
        If actv Is Nothing Then
               eng = jp
        Else
              actv.Select
              ra = ActiveCell.Row
              eng = Cells(ra, 2)
        End If
 
       Sheets("Sheet1").Select
        Cells(i, 1) = eng
Next
Range("A1").Select
End Sub

Sub ki302a()
Sheets("Sheet1").Range("C1:C30").Copy Sheets("Sheet1").Range("A1")
End Sub