Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Fin
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, [A5:A32]) Is Nothing Then
Application.ScreenUpdating = False
Range("C2:GG2").Copy
Range("C" & Target.Row).Select
ActiveSheet.Paste
[A1].Select
End If
Fin:
End Sub