Option Explicit

Private Sub RefEdit1_Change()
Dim iLastRow As Long
iLastRow = Cells(Rows.Count,  1 ).End(xlUp).Row +  1 
[a1].Copy Cells(iLastRow,  1 )
End Sub


'Private Sub Worksheet_Change(ByVal Target As Range)
'If Target.Cells.Count > 1 Then Exit Sub
'Dim iLastRow As Long
'Application.EnableEvents = False
'If Target = [a1] Then
'iLastRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
'[a1].Copy Cells(iLastRow, 1)
'End If
'Application.EnableEvents = True
'End Sub
'

Sub tt()
[a1] =  10 
End Sub

Private Sub RefEdit2_Change()
Dim iLastRow As Long
iLastRow = Cells(Rows.Count,  2 ).End(xlUp).Row +  1 
[b1].Copy Cells(iLastRow,  2 )
End Sub


'Private Sub Worksheet_Change(ByVal Target As Range)
'If Target.Cells.Count > 1 Then Exit Sub
'Dim iLastRow As Long
'Application.EnableEvents = False
'If Target = [b1] Then
'iLastRow = Cells(Rows.Count, 2).End(xlUp).Row + 1
'[b1].Copy Cells(iLastRow, 2)
'End If
'Application.EnableEvents = True
'End Sub
'

Sub tt1()
[b1] =  10 
End Sub