Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect([B10:B1000], Target) Is Nothing And Target.Count = 1 Then
Application.EnableEvents = False
ncol = 10
[C65000].End(xlUp).Offset(1, 0).Resize(1, ncol).Select
Selection.Offset(-1, 0).Copy ActiveCell
On Error Resume Next
Selection.SpecialCells(xlCellTypeConstants, 23).ClearContents
ActiveCell.Offset(0, -1).Copy ActiveCell.Offset(1, -1)
ActiveCell.Offset(1, -1).ClearContents
Application.EnableEvents = True
End If
End Sub