koo

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address = "$A$1" Then
   
3.     cx = Sheets(2).[B65536].End(xlUp).Row
   
4.         If Sheets(2).Cells(1, 2) = Empty Then
   
5.             cx = 1
   
6.         Else
   
7.             cx = cx + 1
   
8.         End If
   
9.     Sheets(2).Cells(cx, 2) = Cells(1, 1)
   
10.     Cells(1, 1).Select
    
11. End If
    
12. End Sub

½Æ»s¥N½X