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

You tell us.

What is the "bob code?"

That may depend on what "bob" does. It would be easier to help and test possible solutions if you could attach a copy of your file which includes any code you are currently using. Explain in detail what you want to do referring to specific cells, rows, columns and sheets using a few examples from your data (de-sensitized if necessary). See the yellow banner at the top of this page for instructions to attach a file.