After some hunting and pecking and my lack of knowledge of VBS this is what I
came up with.

The only thing I don't like is all the ElseIf Statements. Havn't figured
out how to do a range instead of a column. Going to work on that today.

***************
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 4 Then
Selection.COPY
ElseIf Target.Column = 7 Then
On Error Resume Next
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ElseIf Target.Column = 9 Then
On Error Resume Next
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
ElseIf Target.Column = 10 Then
On Error Resume Next
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
End If

End Sub
*********************