Or use a macro:

Sub DuboCopyMacro()

<snip

Application.CutCopyMode = False

End Sub

Thank you very much, it works very good!

Yes, I know the best solution is to move column to the end, but that
column is important for me and I would like to keep it in the middle of
the screen. I had to ask this question just to make sure if there is no
other way but moving it...

I have one more question because I haven't provided enough information..

Two things. I would like to do it without inputboxes because i would like
pasting only, and c/p range will be set by selecting the cell, that's
fine - I'll try to modify your code.
Second - I would like to paste several times. I think the best way would
be to use temporary place for copy range. For example one hidden sheet and
then when copying second time to overwrite the old data. Do you think it
could work?

Once more thank you for your effort !


Ooops, sorry about that last message. Hit the wrong button.

If you want to paste several times, you could use the pastespecial method
for each of the ranges, just make sure that you don't set the cutcopymode to
false in between.

For example...
Range("C9:F9").Copy
Range("C14:F14").PasteSpecial
Range("C16:F16").PasteSpecial

HTH,
Bernie
MS Excel MVP