Рандомизация на две группы

[higet]

Помогите сделать такую вещь пожалуйста. Если например А1 пустая, то ничего не делать. Если в А1 что-то появляется, то поставить в G1 случайным образом 0 или 1. Однажды записанная G1 меняться более не должна. И все это растянуть для всех ячеек An Gn. Получится простейшая рандомизация на две группы, но я осилить не могу (

[kuklp1]

В модуль листа.

Код Выделить Развернуть

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Column <> 1 Or Target.Count > 1 Then Exit Sub
    If Target.Offset(, 6) = "" And targe <> "" Then Target.Offset(, 6) = Round(Rnd, 0)
End Sub