Sub SelectNextItem()
    Dim strAddressSorse As String, Cell As Range, rw As Long, cl As Integer, v
    strAddressSorse = Range("E1").Validation.Formula1
    Set Cell = Range(strAddressSorse).SpecialCells(xlCellTypeConstants).Find(Range("E1").Value)
    If Not Cell Is Nothing Then
        rw = Cell.Row
        cl = Cell.Column
    Else
        Exit Sub
    End If
    If Cells(rw + 1, cl) <> "" Then
        Range("E1").Value = Cells(rw + 1, cl)
    Else
        v = Range(Cell.Address(0, 0)).End(xlUp).Offset(1, 0)
        Range("E1").Value = v
    End If
End Sub