Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A26:A2500")) Is Nothing Then
If Selection.Cells.Count > 1 Then
If Application.WorksheetFunction.Max(Selection) = 0 Then
Selection.Offset(0, 1).ClearContents
End If
Else
If Target <> "" Then
Range("B" & Target.Row) = Application.WorksheetFunction.VLookup(Target, Worksheets("Descro").Range("A1:B2500"), 2, 0)
Else
End If
If Target = "" Then Range("B" & Target.Row) = ""
End If
End If
End Sub