Copy range several times less first row

**markos97** · 06-28-2010, 03:32 AM

Hi!
I hope so, I choose a good forum with: Excel genral/miscellaneous/programming.
My problem is: I want to copy n times, a range, for example range ("G1:H5") like this:
--A-B-C-D-E-F-G-H
1--------------------e--f
2--------------x-o--x-o
3-------c--r--c-r---c--r
4-------e-u--e-u---e-u
5-------l-m--l-m---l-m
Now, I'm using below code:

Sub copysteps()
    For i = 1 To 2 ‘two copies, make change
        Selection.Resize(Selection.Rows.Count - 1).Copy
        ActiveCell.Offset(0, -2).Select  
        ActiveSheet.Paste
    Next i
End Sub

but after use this code, the data looks like that:
--A-B-C-D-E-F-G-H
1-------e--f--e--f--e--f
2-------x--o-x--o--x-o
3-------c--r--c--r--c--r
4--------------e--u-e--u
5---------------------l--m
Can you help me modify this code? Thanks.
Regards

**pike** · 06-28-2010, 05:57 AM

Hi markos97
Welcome to the forum

Try this code

Sub copysteps()
    For i = 1 To 2 'two copies, make change
        Selection.Offset(1, 0).Resize(Selection.Rows.Count - 1).Copy
        ActiveCell.Offset(1, -2).Select
        ActiveSheet.Paste
    Next i
End Sub

**markos97** · 06-28-2010, 06:44 AM

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

**pike** · 06-28-2010, 06:54 AM

Hi markos97
not to sure if it is what you require or not. I'm also sorry as I only speek english (poorly).

**markos97** · 07-28-2010, 08:54 AM

Hi!
Yes, you're right pike. Sorry, very sorry, your code working good also as my code. I'm something mistake. Maybe I damage a file, or something that.
Regards