Visual Basic Makro Galtonbrett

Hi! ich brauch eure Hilfe!!!!
Wenn ich das makro ausführe umgeht er bei der if abfrage  (If Range("G4").Select <> "" Then) die argumente "then" und "else" die folgenden if abfragen werden immer ausgeführt egal ob die Range("G4").Select true is oder false.
wie sage ich ihm nun das die if abfragen "If z2 > 0.5 Then" zu der (If Range("G4").Select <> "" Then) abfrage gehören???
kann sein das ich dort mit begin und end oder so arbeiten muss??



Sub galtonbrett()

z1 = Rnd()
z2 = Rnd()
z3 = Rnd()
z4 = Rnd()

   Range("N2").Select
   ActiveCell.FormulaR1C1 = z1
   Range("N4").Select
   ActiveCell.FormulaR1C1 = z2
   Range("N6").Select
   ActiveCell.FormulaR1C1 = z3
   Range("N8").Select
   ActiveCell.FormulaR1C1 = z4

   Range("H2").Select
   ActiveCell.FormulaR1C1 = "0"

   If z1 > 0.5 Then
      Range("I4").Select
      ActiveCell.FormulaR1C1 = "0"
   Else
      Range("G4").Select
      ActiveCell.FormulaR1C1 = "0"
   End If
   If Range("G4").Select <> "" Then
       If z2 > 0.5 Then
           Range("H6").Select
           ActiveCell.FormulaR1C1 = "0"
       Else
           Range("F6").Select
           ActiveCell.FormulaR1C1 = "0"
       End If
   Else
       If z2 > 0.5 Then
           Range("J6").Select
           ActiveCell.FormulaR1C1 = "0"
       Else
           Range("H6").Select
           ActiveCell.FormulaR1C1 = "0"
       End If
   End If
End Sub