{quote}{login=EducatedFool}{date=02.11.2010 11:55}{thema=}{post}Вы сами-то поняли, что написали?  
 
Правильно как-то так:  
 
Private Sub Worksheet_Change(ByVal Target As Range)  
   If Not Intersect(Target, Range("A:A")) Is Nothing And Target.Count = 1 Then  
       Select Case Target.Row  
           Case 1: Target.Next = 1  
           Case Is > 1: Target.Next = Val(Target.Offset(-1, 1)) + 1  
       End Select  
   End If  
End Sub{/post}{/quote}  
 
Можно спросить? :)  
1. Target.Next - это следующая правая ячейка?  
2. Val(...) - что это за оператор?  
 
Заранее благодарен,