Nächste erlaubte Zelle selektieren

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Selection.Count > 1 Then ActiveCell.Select
Dim Bereich As Range
Set Bereich = Range("J8,J10,N8,L14,J15:P18,H17:H18")
If Intersect(Target, Bereich) Is Nothing Then Range("J8").Select
End Sub

Dieser Code erlaubt nur eine Zelle in bestimmten Bereichen anzuwählen. Wenn eine Zelle, die nicht im "Bereich" definiert ist, selektiert wird, wird die Zelle J8 ausgewählt.
Das funktioniert auch soweit.
Jetzt habe ich folgende Frage:
Wie kann ich es bewerkstelligen, dass bei der Auswahl einer nicht definierten Zelle im Bereich automatisch die nächste definierte Zelle selektiert wird?
Kann mir jemand helfen?
Gruß
Dirk