Jarek,

Go it to to work!!

Fantastic - many thanks

Bob

"Jarek Kujawa" wrote:

use:

Sub kopying()
Selection.Copy
ActiveCell.Offset(3, 0).Select
ActiveSheet.Paste
End Sub