Hi!
Thanks for your repley! Your code is so good, but not yet good enough. I think you write it from memory, and you don't try to run this code. But, never mind.
That's beforee I see, you help me, I find this: http://support.microsoft.com/kb/148462
Then I thinking about it, very intensively, and even though I manage to get:
Sub steps() 
For i = 1 To 2  'two copies, make change
Selection.Offset(1, 0).Resize(Selection.Rows.Count, 2).Copy  'one cell down select 
ActiveCell.Offset(1, -2).Select  'one cell down copy, and 2 cells left destination
        ActiveSheet.Paste
     Next i
End Sub
Once more time, I would like to thank you for your help. Finally, sorry for my english.
Regards