Solved VBA code to copy cells to X-number of rows lower for X-times

Microsoft Office 2013 professional produ...
February 4, 2015 at 05:17:24
Specs: Windows 8.1
Hello all

Can anyone help me with this Little VBA script:

I need to be able to select a cell, then run the macro and that macro will then copy the cell I have selected into the cell placed 10 rows lower and then Again into the cell that is 10 rows lower than that and so on, until the row number is 10000 or above.

This would really help me save a Whole lot of time, instead of doing a manual CTRL + C and CTRL + V in each cell for a very big number of times..

Thanks in advance!


See More: VBA code to copy cells to X-number of rows lower for X-times

Report •

February 4, 2015 at 12:48:21
✔ Best Answer
Sub Ten_K_Rows()
'Determine Row of Selected cell
    myRw = Selection.Row
'Disable Screen updating for speed
     Application.ScreenUpdating = False
'Copy Selection, paste every 10 Rows, same column
      Do While myRw < 10000
       myRw = myRw + 10
        Selection.Copy _
         Destination:=Cells(myRw, Selection.Column)
End Sub

Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.

Report •

February 4, 2015 at 23:07:54
Exactly what I needed, thank you very much!

Report •

Related Solutions

Ask Question