copiar y pegar datos como valores

[EDGAR S. H.]

hola buenas tardes a todos

Quisiera ver si se pudiera mediante una macro que se ejecute automáticamente cada vez que modifique el valor de referencia (que es el) vin, quiero copiar el valor de una celda que tiene formula y pegarlo en otra como un numero sin formula, las celdas en las que quiero hacer esto son las siguientes:

copiar la c6 pegar en la c7, d6 A la d7 y así sucesivamente hasta la s6 ala s7 y también otra copiar la e17 y pegarla como numero en la c17.

ojala pudieran apoyarme no se mucho de macros es por eso que pido de su apoyo.

de antemano muchas gracias por el apoyo

dejo ejemplo

ESHM.xlsm

[Antoni]

Coloca esta macro en la Hoja:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$G$5" Then
   Range("C6:S6").Copy: Range("C7:S7").PasteSpecial xlValues
   Range("G17") = Range("E17")
   Application.CutCopyMode = False
End If
End Sub