What's wrong with this Macro to Copy and Paste?

Sub Macro1()

    Range("J6:J31").Select
    Application.Run "bob"
    Selection.Copy
    Range("K6").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub