I am trying to figure out a way to take a range (“A2:A26”) and copy/paste it
into range (“D5579”) then offset one cell down, then do it again, so
(“A2:A26”) copy/paste to (“D81105”) and so on and so forth. I want it to
run 256 times.

I am looking for a sample of code that I thought I had somewhere in my
library, but can’t seem to find it now. Any ideas?

Thanks,
Ryan--

Hi,

Try this

Sub Versive()
Range("A2:A26").Copy
For x = 55 To 1430 Step 26
Cells(x, 4).PasteSpecial
Next
End Sub

Mike

"RyGuy" wrote:

> I am trying to figure out a way to take a range (“A2:A26”) and copy/paste it
> into range (“D5579”) then offset one cell down, then do it again, so
> (“A2:A26”) copy/paste to (“D81105”) and so on and so forth. I want it to
> run 256 times.
>
> I am looking for a sample of code that I thought I had somewhere in my
> library, but can’t seem to find it now. Any ideas?
>
> Thanks,
> Ryan--
>

Thanks! Very cool. This macro worked pretty well too:

Sub CopyDown()
Dim lstRw As Long
lstRw = Cells(Rows.Count, 1).End(xlUp).Row
Do Until lstRw >= 7000
ActiveCell.Resize(26, 1).Copy ActiveCell.Offset(26, 0)
lstRw = lstRw + 2
Range("A" & lstRw - 9).Activate
Loop
End Sub

It was off by one row, so I inserted one cell down, and everything lined up
nicely.

Hope this helps others.


Thanks again Mike!
Ryan--


"Mike H" wrote:

> Hi,
>
> Try this
>
> Sub Versive()
> Range("A2:A26").Copy
> For x = 55 To 1430 Step 26
> Cells(x, 4).PasteSpecial
> Next
> End Sub
>
> Mike
>
> "RyGuy" wrote:
>
> > I am trying to figure out a way to take a range (“A2:A26”) and copy/paste it
> > into range (“D5579”) then offset one cell down, then do it again, so
> > (“A2:A26”) copy/paste to (“D81105”) and so on and so forth. I want it to
> > run 256 times.
> >
> > I am looking for a sample of code that I thought I had somewhere in my
> > library, but can’t seem to find it now. Any ideas?
> >
> > Thanks,
> > Ryan--
> >

Got the end value for the loop wroong, try this

For x = 55 To 6701 Step 26

"Mike H" wrote:

> Hi,
>
> Try this
>
> Sub Versive()
> Range("A2:A26").Copy
> For x = 55 To 1430 Step 26
> Cells(x, 4).PasteSpecial
> Next
> End Sub
>
> Mike
>
> "RyGuy" wrote:
>
> > I am trying to figure out a way to take a range (“A2:A26”) and copy/paste it
> > into range (“D5579”) then offset one cell down, then do it again, so
> > (“A2:A26”) copy/paste to (“D81105”) and so on and so forth. I want it to
> > run 256 times.
> >
> > I am looking for a sample of code that I thought I had somewhere in my
> > library, but can’t seem to find it now. Any ideas?
> >
> > Thanks,
> > Ryan--
> >

Glad I could help and thanks for the feedback

"RyGuy" wrote:

> Thanks! Very cool. This macro worked pretty well too:
>
> Sub CopyDown()
> Dim lstRw As Long
> lstRw = Cells(Rows.Count, 1).End(xlUp).Row
> Do Until lstRw >= 7000
> ActiveCell.Resize(26, 1).Copy ActiveCell.Offset(26, 0)
> lstRw = lstRw + 2
> Range("A" & lstRw - 9).Activate
> Loop
> End Sub
>
> It was off by one row, so I inserted one cell down, and everything lined up
> nicely.
>
> Hope this helps others.
>
>
> Thanks again Mike!
> Ryan--
>
>
> "Mike H" wrote:
>
> > Hi,
> >
> > Try this
> >
> > Sub Versive()
> > Range("A2:A26").Copy
> > For x = 55 To 1430 Step 26
> > Cells(x, 4).PasteSpecial
> > Next
> > End Sub
> >
> > Mike
> >
> > "RyGuy" wrote:
> >
> > > I am trying to figure out a way to take a range (“A2:A26”) and copy/paste it
> > > into range (“D5579”) then offset one cell down, then do it again, so
> > > (“A2:A26”) copy/paste to (“D81105”) and so on and so forth. I want it to
> > > run 256 times.
> > >
> > > I am looking for a sample of code that I thought I had somewhere in my
> > > library, but can’t seem to find it now. Any ideas?
> > >
> > > Thanks,
> > > Ryan--
> > >