Private Sub Worksheet_Calculate()
 Worksheet_Change Range("A2")
 End Sub

 Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Intersect(Target, Range("A2")) Is Nothing Then
 Application.EnableEvents = False
 Range("A" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("A2").Value
 Application.EnableEvents = True
 Application.EnableEvents = False
 Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("B2").Value
 Application.EnableEvents = True
 Application.EnableEvents = False
 Range("C" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("C2").Value
 Application.EnableEvents = True
 Range("D" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("D2").Value
 Application.EnableEvents = True
 Range("E" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("E2").Value
 Application.EnableEvents = True
 Range("F" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("F2").Value
 Application.EnableEvents = True
 Range("G" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("G2").Value
 Application.EnableEvents = True
 Range("H" & Rows.Count).End(xlUp).Offset(1, 0).Value = Range("H2").Value
 Application.EnableEvents = True
 End If
 End Sub