Das ist mein Rechner für meine Zufallszahl:

Sub ZF ()

Dim Z1 As Integer

Z1 = (Rnd * 200)    

If Z1 = 1 Then
Worksheets("Testblatt").Range("D5") = Z1
End If

If Z1 = 2 Then
Worksheets("Testblatt").Range("F10") = Z1
End If
End Sub

immer so weiter...

Nun möchte ich verhindern, dass einer der Beiträge in die Zelle geschrieben wird, sobald die linke Nachbarzelle den gleichen Wert enthält. 
Am besten sollte die ZF noch einmal berechnet werden und dann ein anderer Wert notiert werden. 
Für die linke Nachbarzelle habe ich leider keinen Zellenbezug. 

Hier hänge ich gerade leider sehr...

Eventuell wüsste auch jemand, wie ich die Zahl 0 als ZF vermeiden könnte. Wäre ebenfalls super nett.