Private Sub Worksheet_Change(ByVal Target As Range)
If Not Range("a2").Value = Range("f2").Value Then
Application.EnableEvents = False
Range("A2:B2").Select
Selection.Copy
Range("J2").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("J2").Select
Selection.End(xlDown).Select
Application.CutCopyMode = False
Selection.Copy
Range("F2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.EnableEvents = True
End If
End Sub