Excel 做得到在A1輸入1，B1顯示1然後換行清除A1數值1，A1再輸入2，B2顯示2換行>以此ˋ類推?

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
If Range("B1") = "" Then
Range("B1") = Range("A1")
Else
Range("B" & [B65536].End(xlUp).Row + 1) = Range("A1")
End If
End If
Range("A1").Select
End Sub