Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A2:A100")) Is Nothing Then
Range("F1:F100").ClearContents
n = ActiveCell.Row
Range("G" & n & ":R" & n).SpecialCells(xlCellTypeConstants, 23).Copy
Range("F1").PasteSpecial xlPasteValues, Transpose:=True
End If
Application.CutCopyMode = False
End Sub