记录指定单元格的数据

在sheet1指定单元格A3输入要更新的值...每次都在A3输入值
问题是: 在sheet2中单元格自动记录sheet1 A3所输入的所有值

例子 : 当sheet1 A3输入5 时sheet2 B3=5
当sheet1 A3输入1 时sheet2 B4=1
当sheet1 A3输入2 时sheet2 B5=2

以此类推记录A3所输入的所有数据

右键点Sheet1，查看代码，粘贴以下代码：
Dim i As Integer
Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A3") Then
Sheets("Sheet2").Cells(3 + i, 2) = Target
i = i + 1
End If
End Sub

功能实现。