Copy & Paste then Repeat

[RyanCortina]

I'm trying to create a basic macro but I'm not a programmer what-so-ever so I was hoping someone could help.
What I'm trying to do is:
Copy A2:A3 and Paste in A5:A6, repeat process by then continuing to paste into A8:A9, and so on (skipping A1, A4, A7, A10, etc...)

Any help is greatly appreciated.
Thanks,
Ryan

 

[AlphaFrog]

Try this. Change the 100 to the last row you want to paste to.

[COLOR=darkblue]Sub[/COLOR] Copy_Paste_3()
    [COLOR=darkblue]Dim[/COLOR] i [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Long[/COLOR]
    Range("A2:A3").Copy
    [COLOR=darkblue]For[/COLOR] i = 5 [COLOR=darkblue]To[/COLOR] [COLOR=#ff0000]100[/COLOR] [COLOR=darkblue]Step[/COLOR] 3
        Range("A" & i).PasteSpecial xlPasteAll
    [COLOR=darkblue]Next[/COLOR] i
    Application.CutCopyMode = [COLOR=darkblue]False[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

 

[RyanCortina]

Try this. Change the 100 to the last row you want to paste to.

[COLOR=darkblue]Sub[/COLOR] Copy_Paste_3()
    [COLOR=darkblue]Dim[/COLOR] i [COLOR=darkblue]As[/COLOR] [COLOR=darkblue]Long[/COLOR]
    Range("A2:A3").Copy
    [COLOR=darkblue]For[/COLOR] i = 5 [COLOR=darkblue]To[/COLOR] [COLOR=#ff0000]100[/COLOR] [COLOR=darkblue]Step[/COLOR] 3
        Range("A" & i).PasteSpecial xlPasteAll
    [COLOR=darkblue]Next[/COLOR] i
    Application.CutCopyMode = [COLOR=darkblue]False[/COLOR]
[COLOR=darkblue]End[/COLOR] [COLOR=darkblue]Sub[/COLOR]

Thanks Alpha, worked perfectly.