Private Sub CommandButton1_Click() Dim item As Integer Dim lin As Integer lin = 1 Do While 1 lin = lin + 1 item = Sheets("Plan1").Cells(lin, 1).Value If item = 0 Then Exit Do Else Sheets("Plan1").Cells(lin, 2) = Application.VLookup(item, Sheets("Plan1").Range("D2:E6"), 2, 0) End If Loop End Sub