[okshef]

Как-то так

Код:

Private Sub Worksheet_Change(ByVal Target As Range)
For Each c In Worksheets(1).Range(1, 100)
If c = "" Then c = Target.Value: Exit For
Next
End Sub