Macro to copy and insert

Paste this code:

   If Target.Cells.Count = 1 And Target.Column = 16 Then
      Target.Offset(, 2) = Target
      Application.EnableEvents = False
      Target = ""
      Application.EnableEvents = True
   End If

Below the row:

Private Sub Worksheet_Change(ByVal Target As Range)

and above the row:

End Sub

Regards,
Antonio