Private Sub DTPicker1_Change()
J1 = Cells(1, ActiveCell.Column)
L1 = ActiveCell.Row
C1 = ActiveCell.Column
Set J2 = Range("A1:IV1").Find(DTPicker1)
If Not J2 Is Nothing Then
C2 = J2.Column
Application.EnableEvents = False
Range(Cells(L1 - 1, C2), Cells(L1 + 1, C2 + 2)).Value = Range(Cells(L1 - 1, C1), Cells(L1 + 1, C1 + 2)).Value
Range(Cells(L1 - 1, C1), Cells(L1 + 1, C1 + 2)).ClearContents
Application.EnableEvents = True
End If
Unload Me
End Sub