Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("C:C")) Is Nothing Then Exit Sub
    Cells(Target.Row, 5).Formula = "=vlookup(" & Target.Address & ",Sheet2!$A$5:$B$30,2,FALSE)"
End Sub